XProfan

Deutsch

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Laufwerke identifizieren (1)
CLS
Declare I%,DRIVES&,buf#,d$,DRIVETYPE$,Drives$
Def @GetLogicalDrives(0) !KERNEL32,GetLogicalDrives
Def @GetDriveType(1) !KERNEL32,GetDriveTypeA
let i%=0
Let drives&=@GetLogicalDrives()
LET DRIVES$=@Bin$(drives&)
Dim buf#,4

While @and(@lt(i%,26),@gt(@len(Drives$),@add(i%,1)))

    IF @equ$(@Mid$(Drives$,@sub(@len(DRIVES$),i%),1),1)

        Let d$=Chr$(Add(i%,65));:
        String buf#,0=d$
        LET Drivetype$=@GetDriveType(buf#)
        LET DRIVETYPE$=@Trim$(DRIVETYPE$)

        IF Drivetype$=2

            Print Diskettenlaufwerk gefunden: ;D$

        endif

        IF Drivetype$=6

            Print Ramdrive gefunden: ;D$

        endif

        IF Drivetype$=4

            Print Netzwerklaufwerk gefunden: ;D$

        endif

        IF Drivetype$=3

            Print Festplattenlaufwerk gefunden: ;D$

        endif

        IF Drivetype$=5

            Print CD-ROM Laufwerk gefunden: ;D$

        endif

    endif

    inc i%

wend

waitinput
end