Jak sprawdzić czy CD-ROM jest otwarty?

Jak sprawdzić czy CD-ROM jest otwarty?
Proszę tylko nie piszcie:
mciSendString('Set cdaudio door open wait',nil,0,handle); *otwieranie
mciSendString('Set cdaudio door closed wait',nil,0,handle); *zamykanie

if MessageDlg('Czy CD-ROM jest otwarty?',mtConfirmation,[mbYes, mbNo],0)=mrYes then
begin
ShowMessage('CD-ROM jest otawrty');
end else begin
ShowMessage('CD-ROM jest zamkniety');
end;

:-) --W poszukiwaniu rozwiązania problemu, najbardziej pomocna jest znajomość odpowiedzi.

LOL :D--MarcineqSoft
[email protected]
Borland C++ Builder 4 Standard

Nie o taką odpowiedź mi chodziło :), próbuj dalej.