du könntest das nehmen:
Delphi-Quellcode:
function DriveType(laufwerk: PChar): String;
begin
case GetDriveType(laufwerk) of
DRIVE_CDROM: result := 'CD-ROM Laufwerk';
DRIVE_FIXED: result := 'Festplatte';
DRIVE_RAMDISK: result := 'Ramdisk';
DRIVE_REMOTE: result := 'Netzlaufwerk';
DRIVE_REMOVABLE: result := 'Wechsellaufwerk';
0: result := 'unbekanntes Laufwerk';
1: result := 'Laufwerk existiert nicht';
end;
end;
Und wenn es "Laufwerk existiert nicht" ist, existiert es nicht.
man könnte aber auch // vor 1: result stellen und dann ist das einfach wenn es 1 ist