Asunto Unidad CD-ROM

[wpolanco]

Saludos Gente Interesante del Foro, Necesito un favor de uds. Me gustaria saber como puedo expulsar un CD desde una aplicacion delphi, Gracias de antemano.

[jhonny]

De trucomania...

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);
Si queres mas información busca en el truco 108...

espero te sirva.
;)