XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - Laufwerke im System bestimmen
konvertiert Zahlen zu Laufwerksbuchstaben
Autor: Dieter Zornow
free
Def GetLogicalDrives(0) ! Kernel32,GetLogicalDrives
DEF PathBuildRoot(2) ! shlwapi,PathBuildRootA

proc DriveRoot

    parameters no&
    Declare drive$
    Drive$ = @MkStr$(chr$(0),3)
    PathBuildRoot(addr(drive$),no&)
    return drive$

endproc

Declare drive&
Drive& = GetLogicalDrives()
clearlist

whileloop 0,25

    If @TestBit(drive&,&loop)

        addstring DriveRoot(&loop)

    endif

endwhile

@ListBox$(Laufwerke im System,a>)