Laufwerk auf und zu script (source) [Delphi]

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: