-----------------------------------------------------------------------
            "Delphi X-Files" <www.DelphiXFiles.narod.ru>"
          "Определение букв дисков, соответствующих CD-ROM"
-----------------------------------------------------------------------

Данный пример возвращает в одну строчку некое количество букв, которые
соответствуют приводу CD-ROM.

function GetCDRomDrives: String;
var
  R  : Integer;
  Buf: Array[0..4] of Char;
begin
  Result := '';
  For R := Integer('A') to Integer('Z') do
   begin
     StrPCopy(@buf,Char(r)+':\');
     if (GetDriveType(@buf) = DRIVE_CDROM) then
       Result := Result + Char(R);
   end;
end; 
-----------------------------------------------------------------------