cdrom laufwerk auswerfen

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