// Der Typ eines Laufwerks wird anhand der Root-Bezeichnung gefunden.
// Siehe auch die Bezeichnung eines Laufwerkes herausfinden

// Getestet mit D4 unter Win98

function lwt(rt:pchar):string;
begin
case GetDriveType(rt) of
0:                lwt:='konnte nicht ermittelt werden';
1:                lwt:='Existiert nicht';
DRIVE_REMOVABLE : lwt:='Diskette';
DRIVE_FIXED :     lwt:='Festplatte';
DRIVE_REMOTE :    lwt:='Netzlaufwerk';
DRIVE_CDROM :     lwt:='CDROM';
DRIVE_RAMDISK :   lwt:='RAMdisk';
else              lwt:='Unbekannt';
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var lw:PChar;
begin
lw:='E:\';
showmessage(lw+' = '+lwt(lw));
end;