Laufwerksbuchstaben aus device-name ermitteln

[hathor]

Es geht auch so:

Delphi-Quellcode:

Function GetCDROM:string;
var DriveType, i: integer;
     LW, Drive : String;
begin
  i := 1;
  LW := 'cdrom0';
  repeat
  Drive:= Chr(i+64);
  DriveType := GetDriveType(PChar(Format('%S:\',[Drive]))) ;
  if DriveType=5 then
  Begin
    result:= GetDosDevice(StrToIntDef(LW,0));
    break;
  end;
    inc (i);
  until i=27;
end;