como abrir y cerrar unidades CDROM

[JoseQ]

existe alguna funcion de la API para abrir i cerrar las unidades CD-rom ?

[defcon1_es]

Hola,
mira este truco de TrucoManía: http://www.q3.nu/trucomania/truco.cgi?108&esp

[quetzal]

checate este hilo de trucomania

http://www.q3.nu/trucomania/truco.cgi?108&esp

[DarkByte]

Copy & Paste de Trucomanía... para evitar tener que ir de un lugar a otro.

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

Código Delphi [-]
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:

Código Delphi [-]
   OpenCd(TRUE);

Para cerrar el CD:

Código Delphi [-]
   OpenCd(FALSE);

El anterior truco 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

Código Delphi [-]
 
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');
end;

[roman]

Empezado por DarkByte

Copy & Paste de Trucomanía... para evitar tener que ir de un lugar a otro.

Este tipo de mensajes son absolutamente innecesarios. Habiéndose ya dado dos enlaces directos al mismo código, ¿cuál es el objeto de pegar aquí el código? ¿Cuál es la aportación?