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