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