Проверка на наличие CD диска в дисководе

function DiskInDrive(Drive: Char): Boolean;
var
   ErrorMode: word;
begin
   { переводим в верхний регистр }
   if Drive in ['a'..'z'] then Dec(Drive, $20);
   { убеждаемся, что это буква }
   if not (Drive in ['A'..'Z']) then
      raise EConvertError.Create('Not a valid drive ID');
   { отключаем критические ошибки }
   ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
   try
      { диск 1 = a, 2 = b, 3 = c, и т.д. }
      if DiskSize(Ord(Drive) - $40) = -1 then
         Result := False
      else
         Result := True;
   finally
      { восстанавливаем старый режим ошибок }
      SetErrorMode(ErrorMode);
   end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 var
  x: integer;
 begin
  x := DiskInDrive('a');
  case x of
    0: ShowMessage('Disk is there !');
    1: ShowMessage('Disk is empty !');
    2: ShowMessage('No disk in drive !');
  else
       ShowMessage('Disk not formatted !');
  end; //case
 end;

if DiskInDrive('j')then
begin
ShowMessage('диск обнаружен !');
end;

//Типы устройств.
type TDriveState = (DS_NO_DISK, DS_UNFORMATTED_DISK, DS_EMPTY_DISK, DS_DISK_WITH_FILES);
//....
function DriveState(Drive: String): TDriveState;
var
  Mask: String;
  SearchRec: TSearchRec;
  oldMode: Cardinal;
  ReturnCode: Integer;
begin
  oldMode:=SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    Mask:= Drive+'*.*';
    ReturnCode:=FindFirst(Mask, faAnyfile, SearchRec);
    SysUtils.FindClose(SearchRec);
    case ReturnCode of
      0: Result := DS_DISK_WITH_FILES;
      -18: Result := DS_EMPTY_DISK;
    else
      Result := DS_NO_DISK;
    end;
  except
    Result:=DS_NO_DISK;
  end;
  SetErrorMode(oldMode);
end;
 
//Проверка на съемный накопитель....
if DriveState(Root) <> DS_NO_DISK then
          begin
            if GetDriveType(Pchar(Root)) = DRIVE_REMOVABLE then //....
//

function DiskInDrive(Drive: Char): Boolean;
var
   ErrorMode: word;
begin
   { переводим в верхний регистр }
   if Drive in ['a'..'z'] then Dec(Drive, $20);
   { убеждаемся, что это буква }
   if not (Drive in ['A'..'Z']) then
      raise EConvertError.Create('Not a valid drive ID');
   { отключаем критические ошибки }
   ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
   try
      { диск 1 = a, 2 = b, 3 = c, и т.д. }
      if DiskSize(Ord(Drive) - $40) = -1 then
         Result := False
      else
         Result := True;
   finally
      { восстанавливаем старый режим ошибок }
      SetErrorMode(ErrorMode);
   end;
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
var
  BitMask   : Set of 0..25;
  DriveChar : Char;
  I,k,w  : Integer;
  St, key : String;
begin
Memo1.Lines.Clear;
Memo2.Lines.Clear;
  Integer(BitMask) := GetLogicalDrives;
  if Integer(BitMask) = 0 then
  else
  begin
     for I := 0 to 25 do
      if I in BitMask then
      begin
        DriveChar := Char(I + Ord('a'));
        case GetDriveType(PChar(DriveChar + ':\')) of
          0               : St := 'drive type cannot be determined';
          1               : St := 'root directory does not exist';
      DRIVE_REMOVABLE : St := 'Съемный диск';
          DRIVE_FIXED     : St := 'Локальный диск';
          DRIVE_REMOTE    : St := 'remote (network)';
          DRIVE_CDROM     : St := 'CDROM';
          DRIVE_RAMDISK   : St := 'RAM disk';
        end;
    
      if ((St = 'CDROM') and (DiskInDrive(DriveChar)) and (FileExists(DriveChar + ':'+'\text.txt')))  
then  begin     fName :=  DriveChar + ':'+'\text.txt';
 
AssignFile(f, fName);
  Reset(f);
 while not EOF(f) do   begin
    readln(f, buf);  ............................................................