XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Laufwerke  - Liste mit allen Laufwerkstypen erstellen
Lauffähig ab Profan-Version 5.0
PRFellow-Vorlage
Autor: Thomas Hölzer - Alle Rechte vorbehalten
Liste mit allen Laufwerkstypen
Def GetLogicalDrives(0) !KERNEL32,GetLogicalDrives
Def GetDriveType(1) !KERNEL32,GetDriveTypeA
Declare drives&,i%,d$,buf#
Let drives&=GetLogicalDrives()
Dim buf#,4

While Lt(i%,26)

    If TestBit(drives&,i%)

        Let d$=Chr$(Add(i%,65));:
        String buf#,0=d$
        AddString Add$(Add$(d$, Typ:),GetDriveType(buf#))

    EndIf

    Inc i%

Wend

Dispose buf#
ListBox$(Laufwerkstypen,6pan class=s2>)