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 to that lists the drives
Def GetLogicalDrives(0) !"KERNEL32","GetLogicalDrives"
API to that discern the Laufwerksart
Def GetDriveType(1) !"KERNEL32","GetDriveTypeA"
Declare drives&,i%,d$,buf#,manner$,Kapazität&,Belegt&,Frei&
Bitliste with present Laufwerken ( A-Z, 0=not present 1=present)
Let drives&=GetLogicalDrives()
Dim buf#,4

While Lt(i%,26)

    If TestBit(drives&,i%) if drive present...

        Let d$=Chr$(Add(i%,65));":"
        String buf#,0=d$ Laufwerkstring becomes in Memory-Variable laid
        request, which drive recognized watts

        IF GetDriveType(buf#)=2

            LET manner$="Diskettenlaufwerk"

        elseIF GetDriveType(buf#)=3

            LET manner$="Festplatte"

        elseIF GetDriveType(buf#)=4

            LET manner$="Netzwerklaufwerk"

        elseIF GetDriveType(buf#)=5

            LET manner$="CD-ROM"

        elseIF GetDriveType(buf#)=6

            LET manner$="RAM-Drive"

        endif

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

    EndIf

    Inc i%

Wend

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