Zitat von
RWarnecke:
Hallo,
vielleicht hilft Dir ja dieser
Link weiter.
Wirklich weitergeholfen hat mir es nicht da ich nicht genau weiß wie das funzen soll... aber ich versuche eine Prozedur zu schreiben...:
Delphi-Quellcode:
procedure TForm1.Status(
const open: Boolean);
begin
if mciSendString('
Set cdaudio door closed wait',
Nil, 0,
Handle)=0
then
Open:= True
else
Open:= False;
end;
Aber das geht nicht...
das man dann ungefähr so abfragt:
if Status(True) then showmessage('CD Laufwerk geöffnet!');