Hi;
hier
habe ich gefunden wie man das überprüfen könnte aber wie?
Noch eine Variante:
Delphi-Quellcode:
function TForm1.CD_Status:Boolean;
begin
result:= mciSendString('
Set cdaudio door closed',
Nil, 0,
Handle)=0
end;
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
begin
if CD_Status
then
begin
Status1.Caption:='
Closed';
end;
end;
begin
if not CD_Status
then
begin
Status1.Caption:='
Opened';
end;
end;
end;
Ich hoffe das ihr mir helfen könnt..