Seltsam seltsam, mit dem Code wird es richtig als Wechsellaufwerk erkannt, aber im Prinzip werden ja die gleichen Befehle verwendet ...
Delphi-Quellcode:
for i := 0 to 25 do
if DriveExists(i) then
ListBox1.Items.Add(Chr(i + Ord('A')) + ':\ (' + DriveType(i) + ')') ;
Delphi-Quellcode:
function DriveType(DriveByte: Byte):
String ;
begin
case GetDriveType(PChar(Chr(DriveByte + Ord('
A')) + '
:\'))
of
DRIVE_UNKNOWN : Result:= '
unbekannt' ;
DRIVE_NO_ROOT_DIR : Result := '
Laufwerk exestiert nicht' ;
DRIVE_REMOVABLE : Result := '
Wechselmedium' ;
DRIVE_FIXED : Result := '
Festplatte' ;
DRIVE_REMOTE : Result := '
Netzwerk' ;
DRIVE_CDROM : Result := '
CD-ROM/DVD' ;
DRIVE_RAMDISK : Result := '
RAM Disk' ;
else
result := '
anderer Laufwerkstyp' ;
end ;
end ;