|
Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
Delphi 12 Athens
|
4. Jul 2002, 15:58
Folgende Funktion testet die Laufwerke
Code:
function DriveExists(DriveByte: Byte): Boolean;
begin
Result := GetLogicalDrives and (1 shl DriveByte) <> 0;
end;
A = 0
B = 1
C = 2
...
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
|