Abrir/cerrar la bandeja del lector de CD/DVD

Lenguaje de programación Borland Delphi

Añade 'MMSystem' en el uses de tu form:

procedure OpenCd(AOpen:Boolean);
const
  DoPlay : array[Boolean] of String = ('Set cdaudio door closed wait',
                                                        'Set cdaudio door open wait');
var
  MyError       : LongInt;
  MyErrorString : array[0..MAXERRORLENGTH - 1] of char;
begin
  MyError := mciSendString(pChar(DoPlay[AOpen]), nil, 0, 0);
  if MyError <> 0 then
  begin
    MciGetErrorString(MyError,MyErrorString,MAXERRORLENGTH - 1);
    Showmessage(MyErrorString);
    Exit;
  end;
end;

Para abrir el CD:

  OpenCd(TRUE);

Para cerrar el CD:

  OpenCd(FALSE);

El truco anterior esta muy bien, pero si tenemos más de una unidad de CD no deja seleccionar cual abrir. Para eso usaremos este otro código:

Añade 'MPlayer' en el uses de tu form

 procedure TForm1.Button1Click(Sender: TObject);
   procedure AbreCD(Disco : char);
   var
     Tokata : TMediaPlayer;
   begin
     Tokata := TMediaPlayer.Create(nil);
     with Tokata do
     begin
       Parent := Self;
       Visible := FALSE;
       Shareable := TRUE;
       DeviceType := dtCDAudio;
       FileName := Disco + ':';
       Wait:=FALSE;
       Open;
       Eject;
       Close;
       Free;
     end;
   end;
 begin
   AbreCD('F'); //Especificamos qué unidad queremos abrir
 end;

Publicado el: 2003-09-24