jo wie es die überschrift schon sagt ^^
is dringend ...
Druckbare Version
jo wie es die überschrift schon sagt ^^
is dringend ...
Code:So öffnet man das Laufwerk:
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', Nil, 0, Handle);
end;
So wird es wieder geschlossen:
procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', Nil, 0, Handle);
end;
Möchten Sie gezielt ein CD-ROM-Laufwerk ansprechen, nutzen Sie unten stehende Procedure. Sie erwartet als Parameter den entsprechenden Laufwerksbuchstaben und eine Angabe, ob das Laufwerk geöffnet (=True) oder geschlossen (=False) werden soll.
procedure OpenCDDrive(const ADriveChar: Char; Open: Boolean);
begin
if mciSendString(PChar('open '+ADriveChar+': type cdaudio alias cdlw'),
Nil,
0,
0) = 0 then
begin
if Open then
mciSendString('set cdlw door open wait', Nil, 0, 0)
else
mciSendString('set cdlw door closed wait', Nil, 0, 0);
mciSendString('close cdlw', Nil, 0, 0);
end;
end;
Die Unit mmsystem muss eingebunden werden.
wenn du noch mehr willst wie monitor ausschalten oder so sag bescheit ^^ :wink: