Foros Club Delphi - Asunto Unidad CD-ROM

De trucomania...

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

Código:

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:

OpenCd(TRUE);

Para cerrar el CD:

Código:

OpenCd(FALSE);

Si queres mas información busca en el truco 108...

espero te sirva.
;)