XProfan

Def gRChar$(2) Left$(Right$($(1),&(2)),1)
Var Gl_87dfv5h7f4_lBit$ = Bin$(External("KERNEL32.DLL","GetLogicalDrives"))

Proc ExDrv

    Parameters ED_LW$
    Return If((gRChar$(Gl_87dfv5h7f4_lBit$,(Ord(Upper$(Left$(ED_LW$,1))) - 64)) = "1"),1,0)

EndProc

Proc DrvTyp$

    Parameters DT_LWB$
    CaseNot ExDrv(DT_LWB$): Return "Unbekannt"
    DT_LWB$       = (Left$(DT_LWB$,1) + ":\")
    Var DT_LWTyp& = External("KERNEL32.DLL","GetDriveTypeA",Addr(DT_LWB$))
    Case ((DT_LWTyp& > 6) | (DT_LWTyp& < 1)): DT_LWTyp& = 7
    Return SubStr$("FloppyDisk|||Card/USB|||HardDisk|||NetDrive|||CD/DVD|||Ram- Drive|||Unbekannt",DT_LWTyp&,"|||")

ENDPROC

 $I lw.pinc
Cls

WhileLoop 65,90

    Imprimir ("LW " + Chr$(&Loop) + ": " + Str$(ExDrv(Chr$(&Loop))))

EndWhile

WaitInput
Cls

WhileLoop 65,90

    Imprimir ("LW " + Chr$(&Loop) + ": " + DrvTyp$(Chr$(&Loop)))

EndWhile

WaitInput
End