🚀 go-pugleaf

uzywam funkcji zamieszczonej ponizej do wydostania informacji, czy CD rom
jest gotowy do odczytu.

function DiskInDrive(Drive: Char): Boolean;
var
  ErrorMode: Integer;
begin
  Result := False;
  Drive := UpCase(Drive);
  if not (Drive in ['A'..'Z']) then
    Exit;
  ErrorMode := SetErrorMode (SEM_FailCriticalErrors);
  try
    Application.ProcessMessages;
    if DiskSize(Ord(Drive) - Ord('A') + 1) <> -1 then
       Result := True;
  finally
    SetErrorMode(ErrorMode);
    Application.ProcessMessages;
  end;
end;

funkcja wykonuje sie cyklicznie, caly czas w trakcie dzialania programu. i
jest prawie ok. jest jednak problem. jesli program startuje, a w CDRomie nie
ma plyty, to funkcja zgodnie z oczekiwaniami zwraca falsz. problem w tym, ze
po wlozeniu plyty do napedu nie mam mozliwosci dostania sie do niej -
funkcja caly czas zwraca falsz. windows explorer stwierdza, ze naped nie
jest gotowy do odczytu. w czym problem? a moze znacie jakies lepsze metody
stwierdzenia, kiedy ktos wklada lub wyjmuje cd?