| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 10.3.32 GetAlleDrucker
'Liefert in einem Array die installierten Drucker unter Windows zurück! Achtung geht nur ab Windows NT!!! sub GetAlleDrucker(ListOfAllPrinter()) check=GetGUIType() if check=1 then shell("regedit /e c:\printer.txt 'HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices'",10) wait 1000 zaehler=0 ende=false Dim myPrinter(20) #iNumber = Freefile aFile = "c:\printer.txt" Open aFile For Input As #iNumber On Error Goto schluss While not eof(#iNumber) Line Input #iNumber, sZeile start=left(sZeile,1) if start="""" then ipos=InStr(sZeile,"""=") myprinter(zaehler)=mid(szeile,2,ipos-2) zaehler=zaehler+1 end if wend Close #iNumber schluss: redim ListofAllPrinter(zaehler-1) for i=0 to zaehler-1 ListofAllPrinter(i)=myprinter(i) next i end if end sub |
Seitenanfang |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009