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 :hi:

[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 :hi:

[EDIT] Rechtschreibfehler korrigiert. :D [/EDIT]

[Luckie]

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

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 :mrgreen:)

MfG Florian :hi:

[Privateer3000]

Also..

Zitat:

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 :mrgreen: :mrgreen: :mrgreen:

[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? :roll:

[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*

[Luckie]

Was soll denn das jetzt? Es wurde dir ein Link zu funktionierenden Quellcode gepostet und sogar noch mal, überflüssigerweise, Quellcode für dein Problem direkt hier im Thread gepostet. Wenn du nicht in der Lage bist diesen per Copy and Paste in deinen Programm einzufügen, tut es mir leid, dann kann man dir auch nicht mehr helfen.

[Pseudemys Nelsoni]

btw: ich bin nicht der Thread-Starter.... ich frage nicht danach wie cdrom auf/zu geht, sondern wo man nachgucken kann was z.b diese funktionen hier:

Delphi-Quellcode:

function midiInClose; external mmsyst name 'midiInClose';
function midiInGetDevCaps; external mmsyst name 'midiInGetDevCapsA';
function midiInGetDevCapsA; external mmsyst name 'midiInGetDevCapsA';
function midiInGetDevCapsW; external mmsyst name 'midiInGetDevCapsW';
function midiInGetErrorText; external mmsyst name 'midiInGetErrorTextA';
function midiInGetErrorTextA; external mmsyst name 'midiInGetErrorTextA';
function midiInGetErrorTextW; external mmsyst name 'midiInGetErrorTextW';
function midiInGetID; external mmsyst name 'midiInGetID';
function midiInGetNumDevs; external mmsyst name 'midiInGetNumDevs';
function midiInMessage; external mmsyst name 'midiInMessage';
function midiInOpen; external mmsyst name 'midiInOpen';

bewirken...muss doch irgendwo stehen oder?

[Chewie]

Ja. Entweder im PSDK oder bei MSDN: http://msdn.microsoft.com/

[Daniel B]

Hallo,

Zitat:

Zitat von silent

btw: ich bin nicht der Thread-Starter.... ich frage nicht danach wie cdrom auf/zu geht, sondern wo man nachgucken kann was z.b diese funktionen hier:

Dann bist Du hier im völlig falschen Thread, denn das hat überhaupt ncihts mit dem Ursprungsthema zutun und daher solltest Du ein neuen Thread dafür aufmachen. Daher schliesse ich hier!

Grüsse, Daniel :hi:

*** LOCKED ***