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

Zurück Vor |
| 6.2.5 Wie kann man die installierten Drucker auslesen?
Die API bietet dafür keine Funktion. Unter Windows kann man selber die Registry auslesen. Ich habe hier ein kleines Programm das unter Windows 2000/XP die Drucker mit Hilfe regedit und einem Shellaufruf die Drucker ausliest. sub ZeigeAlleDrucker shell("regedit /e c:\printer.txt 'HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices'",10) wait 2000 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: for i=0 to zaehler-1 msgbox myprinter(i) next i end sub |
Seitenanfang |

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