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;