Определить букву первого 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;