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",64span class=s2>)

API zum Listen qui Laufwerke
Def GetLogicalDrives(0) !"KERNEL32","GetLogicalDrives"
API zum Erkennen qui Laufwerksart
Def GetDriveType(1) !"KERNEL32","GetDriveTypeA"
Déclarer drives&,i%,d$,buf#,art$,Kapazität&,Belegt&,Frei&
Bitliste avec vorhanden Laufwerken ( A-Z, 0=pas vorhanden 1=vorhanden)
Laisser drives&=GetLogicalDrives()
Faible buf#,4

Tandis que Lt(i%,26)

    Si Test peu(drives&,i%) si Laufwerk vorhanden...

        Laisser d$=Chr$(Ajouter(i%,65));»
        String buf#,0=d$ Laufwerkstring wird dans 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 Ajouter$(Ajouter$(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$("-libre: ",@add$(@STR$(Frei&)," Bytes"))
        ADDSTRING »

    EndIf

    Inc i%

Wend

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