procedure GetCDROM(var CD:char);
var
str:string;
Drivers:Integer;
driver:char;
i,temp:integer;
begin
Drivers:=GetLogicalDrives;
temp:=(1 and Drivers);
for i:=0 to 26 do
begin
  if temp=1 then
    begin
      driver:=char(i+integer(a));
      str:=driver+:;
      if   GetDriveType(pchar(str))=DRIVE_CDROM then
       begin
         cd:=driver;
         exit;
       end;
    end;
  drivers:=(drivers shr 1);
  temp:=(1 and Drivers);
end;
end;