Thema: Delphi Laufwerkspfad

Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#7
  Alt 4. Jul 2002, 17:00
Moin Daniel B,

das hat sakura etwas unglücklich dargestellt.
GetLogicalDrives gibt eine Bitmaske für die Laufwerke zurück.
Die Liste beschreibt den Exponenten zur Basis 2.

Also existieren die Laufwerke A und C, so gibt die Funktion 5 zurück
101 Binär. Linke 1 = C rechte = A.

Als Metacode:

if GetLogicalDrives and 2 hoch (ord(Upcase(Laufwerksbuchstabe))-65) <> 0 then
Laufwerk existiert.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat