XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Laufwerke ermitteln (1)
========================================================================
Laufwerke unter Profan 32 Bit unter Win95 ermitteln.
Aus einer Bitmaske die Laufwerke ermitteln
1998 Richard Maurukas
========================================================================
Die HoleInstallierteLW Funktion liefert eine Bit-Maske, welches
die installierten Laufwerke repräsentiert.
Rückgabewert&=HoleInstallierteLW()
------------------------------------------------------------------------
PARAMETER
Die Funktion hat keine Parameter
-------------------------------------------------------------------------
RÜCKGABEWERT
War die Funktion erfolgreich, beinhaltet der Rückgabewert eine Bit-Maske,
welches die momentan verfügbaren Laufwerke repräsentiert.
Bit-Position 0=A, Position 1=B, Position 2=C usw.
War die Funktion nicht erfolgreich, ist der Rückgabewert 0.
-------------------------------------------------------------------------
cls
Def HoleInstallierteLW(0) ! KERNEL32.DLL,GetLogicalDrives
declare LWInstall&
Let LWInstall&=HoleInstallierteLW()
Print Der Rückgabewert der Funktion     :;LWinstall&
Print Die Bit-Maske des Rückgabewertes  :;@BIN$(LWInstall&)
case Testbit(LWInstall&,0):Print Laufwerk A: vorhanden
case Testbit(LWInstall&,1):Print Laufwerk B: vorhanden
case Testbit(LWInstall&,2):Print Laufwerk C: vorhanden
case Testbit(LWInstall&,3):Print Laufwerk D: vorhanden
case Testbit(LWInstall&,4):Print Laufwerk E: vorhanden
usw
waitkey
end