Vérifier si le lecteur de CD est ouvert

uses mmsystem;

procedure TForm1.Button1Click(Sender: TObject);
var
s:array[0..64] of char;
error:Cardinal;
text:array[0..255] of char;
begin
error:=mciSendString('open cdaudio alias geraet',nil,0,handle);
if error<>0 then
begin
mciGetErrorString(error,@text,255);
ShowMessage(text);
mciSendString('close geraet',nil,0,handle);
exit;
end;

error:=mciSendString('status geraet mode',@s,sizeof(s),handle);
if error<>0 then
begin mciGetErrorString(error,@text,255);
ShowMessage(text);
mciSendString('close geraet',nil,0,handle);
exit;
end;

mciSendString('close geraet',nil,0,handle);
ShowMessage('Message: '+s);
end;