Определить букву первого CD-ROM
function GetFirstCDROM: string; {возвращает букву 1-го привода CD-ROM или пустую строку} var w: dword; Root: string; i: integer; begin w := GetLogicalDrives; Root := '#:\'; for i := 0 to 25 do begin Root[1] := Char(Ord('A') + i); if (W and (1 shl i)) > 0 then if GetDriveType(Pchar(Root)) = DRIVE_CDROM then begin Result := Root[1]; exit; end; end; Result := ''; end;
Далее: Открытие и закрытие нескольких приводов CD-ROM »»