XProfan

Def @GetDriveType(1) !"KERNEL32","GetDriveTypeA"
Declare Art$,buf#
DIM buf#,4
String buf#,0="D:"

IF GetDriveType(buf#)=2

    LET Art$="Diskettenlaufwerk"

elseIF GetDriveType(buf#)=3

    LET Art$="Festplatte"

elseIF GetDriveType(buf#)=4

    LET Art$="Netzwerklaufwerk"

elseIF GetDriveType(buf#)=5

    LET Art$="CD-ROM"

elseIF GetDriveType(buf#)=6

    LET Art$="RAM-Drive"

endif

Dispose buf#
@messagebox("Laufwerk D: ist ein(e) "+Art$+".","Meldung",64)

API zum Listen der Laufwerke
Def GetLogicalDrives(0) !"KERNEL32","GetLogicalDrives"
API zum Erkennen der Laufwerksart
Def GetDriveType(1) !"KERNEL32","GetDriveTypeA"
Declare drives&,i%,d$,buf#,art$,Kapazität&,Belegt&,Frei&
Bitliste mit vorhanden Laufwerken ( A-Z, 0=nicht vorhanden 1=vorhanden)
Let drives&=GetLogicalDrives()
Dim buf#,4

While Lt(i%,26)

    If TestBit(drives&,i%) wenn Laufwerk vorhanden...

        Let d$=Chr$(Add(i%,65));":"
        String buf#,0=d$ Laufwerkstring wird in Bereichsvariable gelegt
        Abfrage, welches Laufwerk erkannt wurde

        IF GetDriveType(buf#)=2

            LET Art$="Diskettenlaufwerk"

        elseIF GetDriveType(buf#)=3

            LET Art$="Festplatte"

        elseIF GetDriveType(buf#)=4

            LET Art$="Netzwerklaufwerk"

        elseIF GetDriveType(buf#)=5

            LET Art$="CD-ROM"

        elseIF GetDriveType(buf#)=6

            LET Art$="RAM-Drive"

        endif

        ADDSTRING Add$(Add$(d$," Typ: "),ART$)
        LET Kapazität&=@DiskSize(D$)
        LET Frei&=@DiskFree(D$)
        LET BELEGT&=@sub(@DiskSize(D$),@DiskFree(D$))
        ADDSTRING @add$("-Gesamter Speicherplatz: ",@add$(@str$(Kapazität&)," Bytes"))
        ADDSTRING @add$("-Belegt: ",@add$(@STR$(Belegt&)," Bytes"))
        ADDSTRING @add$("-Frei: ",@add$(@STR$(Frei&)," Bytes"))
        ADDSTRING ""

    EndIf

    Inc i%

Wend

Dispose buf#
@ListBox$("Laufwerkstypen",2)