XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Laufwerke ermitteln (2)
======================================================================
Laufwerks-KennBuchstaben unter Profan 32 Bit und Win95 ermitteln.
1998 Richard Maurukas
========================================================================
Die HoleLWKennung(2) Funktion liefert im Rückgabewert die Anzahl der
Zeichen die in die Bereichsvariable LWkennung# kopiert wurden.
Die Bereichsvariable LWKennung# selbst beinhaltet die Laufwerkskennungen.
FUNKTION
Rückgabewert&=HoleInstallierteLW(MaxZeichen%,LWKennung#)
------------------------------------------------------------------------
PARAMETER
Die Funktion hat 2 Parameter
MaxZeichen%, beinhaltet die Maximale Anzahl der Zeichen der Bereichsvariablen
LWKennung#,  beinhaltet die Laufwerkkennungen in Kleinbuchstaben
-------------------------------------------------------------------------
RÜCKGABEWERT
War die Funktion erfolgreich, beinhaltet der Rückgabewert die Länge des
Strings die in die Bereichsvariable LWKennung# kopiert wurde. Die
Bereichvariable LWKennung# beinhaltet die momentan verfügbaren Laufwerks-
Kennungen. z. B. A:<Null-Byte>B:<Null-Byte>.....
War die Funktion nicht erfolgreich, ist der Rückgabewert 0.
Beachten Sie bitte das im ANSI-ASCII das Null Zeichen ein Byte aber im
UniCode zwei Bytes benötigt.
-------------------------------------------------------------------------
cls
Def HoleLWKennung(2) ! KERNEL32.DLL,GetLogicalDriveStringsA
declare MaxZeichen%         Max. Anzahl der Zeichen der Bereichsvariablen
declare LWKennung#          Nimmt die Laufwerksbuchstaben auf
declare LWInstall&          Anzahl der ermittelten Zeichen einschl. Null Byte
Declare i%
------------------------------------------------------------------------------
Maximale Zeichen des aufzunehmenden Strings je Laufwerk = 4. (Ansi-Ascii)
3 Zeichen für die Laufwerkskennung und ein abschließendes Null-Byte.
Z.B. A:<Null>B:<Null>C:<Null>
a-z*Zeichen =Max. StringLänge der Bereichsvariablen
26*4       =104
-------------------------------------------------------------------------------
Let MaxZeichen%=104
Dim LWkennung#,MaxZeichen%         Bereichsvariable dimensionieren
Let LWInstall&=HoleLWKennung(MaxZeichen%,LWKennung#)
print
Print Installierte Laufwerke   :;div&(LWInstall&,4)
print ================================================
Let I%=0

whileNot equ(i%,LWInstall&)

    Print Installiertes Laufwerk   :;string$(LWKennung#,I%)
    let I%=add(i%,4)  die nächste Adresse setzen

wend

Print ------------------------------------------------
usw
waitkey
dispose LWKennung#
end