cdrom laufwerk auswerfen

[profiz]

Ich möchte ein CD-Rom Laufwerk auswerfen, nur leider hab ich keine Ahnung wie das geht.
Wer kann mir helfen

[Daniel B]

Hallo,

unit "MMSYstem" in den Uses aufnehmen!

Delphi-Quellcode:

procedure OpenCdTray(AOpen: Boolean);
var
  DeviceID: MCIDEVICEID;
  OpenParams: TMCI_OPEN_PARMS;
  Error: LongInt;
  ErrorString: array[0..MAXERRORLENGTH - 1] of Char;
begin
  OpenParams.lpstrDeviceType := 'cdaudio';
  Error := mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE, longint(@OpenParams));

  if Error <> 0 then
  begin
    MciGetErrorString(Error, ErrorString, MAXERRORLENGTH - 1);
    ShowMessage(ErrorString);
    Exit;
  end;

  DeviceID := mciGetDeviceID('cdaudio');

  if AOpen then
  begin
    Error := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0)
  end
  else
  begin
    mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
  end;

  if Error <> 0 then
  begin
    MciGetErrorString(Error, ErrorString, MAXERRORLENGTH - 1);
    ShowMessage(ErrorString);
  end;

  Error := mciSendCommand(DeviceID, MCI_CLOSE, 0, 0);

  if Error <> 0 then
  begin
    MciGetErrorString(Error, ErrorString, MAXERRORLENGTH - 1);
    ShowMessage(ErrorString);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenCDTray(True);
end;

Grüsse, Daniel

[flomei]

Welches schmeisst er denn dann raus? Das für die CD-Wiedergabe konfigurierte oder?
Wie kann man denn die anderen auch auswerfen?

MfG Florian

[EDIT] Rechtschreibfehler korrigiert. [/EDIT]

[Luckie]

Google geht doch noch, ich dachte schon jemand hätte es kaputt gespielt.

http://www.delphi-treff.de/content/e...ex.php4?id=138

[flomei]

Danke Luckie! Hat mich mal so interessiert.
Das mit dem Kaputt-Spielen war ich übrigens *schäm* (immer auf der Suche nach einem Mörder-Google-Whack )

MfG Florian

[Privateer3000]

Also..

Zitat von profiz:

Ich möchte ein CD-Rom Laufwerk auswerfen...

ist das nicht festgeschraubt???
Ihr könnt ruhig lachen...hab lange genug in einem Computershop gearbeitet.Es gibt Kunden die sehen das Laufwerk buchstäblich durch die Luft fliegen

[Illuminator-23-5]

Delphi-Quellcode:

procedure CDOut(LW: Char);
  if mciSendString(PChar('open '+LW+'\: type cdaudio alias cdlw'), nil, 0, 0) = 0 then begin
    mciSendString(PChar('set cdlw door open wait'), nil, 0, 0);
    mciSendString(PChar('close cdlw'), nil, 0, 0);
  end;
end;

Damit kann man ein ganz bestimmtes Laufwerk öffnen, zum schließen einfach 'set cdlw door closed wait'senden [google suchergebnis]

[Luckie]

Was meinst du, was der Link in meinem Post macht?

[Pseudemys Nelsoni]

ich hab msl mit strg auf "mcisendstring" gedrückt, da steht ja ne ganz schöne menge...aber woher weiss man was alle diese functionen tun?

[Pseudemys Nelsoni]

sagt mir das doch bitte wer *g*