CD Laufwerk Status ermitteln

[mOzZzI]

Hallo Dp-Freunde,

ich wollte mal den Status eines CD Laufwerks ermitteln, dazu habe ich folgenden Code gefunden:

mciSendString('Set cdaudio door closed wait', Nil, 0, Handle) Jetzt wollte ich beim PopUp'pen des PopUpMenüs den Status abfragen, also ungefähr so:

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
if mciSendString('Set cdaudio door closed wait', Nil, 0, Handle)= 0  then
begin
 Status1.Caption:=('Status » Geschlossen')
 end;
if mciSendString('Set cdaudio door closed wait', Nil, 0, Handle)= 1 then
 begin
 Status1.Caption:=('Status » Geöffnet');
 end;
end;

Leider funktioniert es nur wenn es Geschlossen ist...
Ich weiß da nicht weiter...

Ich danke euch jetzt schon für eure Hilfe.

Grüße Philipp