Fixed.
Delphi-Quellcode:
function GetDriveTypeString(DriveByte: Byte):
String;
begin
case GetDriveType(PChar(Chr(DriveByte + Ord('
A')) + '
:\'))
of
DRIVE_UNKNOWN: Result := '
Unknown';
DRIVE_NO_ROOT_DIR: Result := '
not Mounted';
DRIVE_REMOVABLE: Result := '
Removable';
DRIVE_FIXED: Result := '
Fixed';
DRIVE_REMOTE: Result := '
Network';
DRIVE_CDROM: Result := '
CDROM';
DRIVE_RAMDISK: Result := '
RAM';
else
Result := '
Other';
end;
end;
Du kannst Byte mit Cardinal austauschen, es sollte aber nicht nötig sein. (Byte 1 - 6 sind gültige Ziele, alles andere ist noch nicht in Delphi 2009 vorhanden und
MSDN gibt auch 6 als höchsten Zähler an, beim
Api Aufruf nutze ich ein Cardinal und als Laufwerk sollte 26 die Höchste Zahl sein wenn ich mich nicht Irre?)
Bitte testen, Danke!