XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Laufwerkstypen ermitteln
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