FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Asunto Unidad CD-ROM
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.
|
#2
|
||||
|
||||
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; Código:
OpenCd(TRUE); Código:
OpenCd(FALSE); espero te sirva.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
|
|
|