Abrir / cerrar la unidad de cd

Abrir / cerrar la unidad de cd

Abrir / cerrar la unidad de cd : Multi-millones de consejos para hacer su vida mas facil.

en Este articulo se muestra como abrir / cerrar la bandeja del CD en Delphi.
utiliza MMSystem
procedure TForm1.OpenCdTray(AOpen:Boolean)
const
& nbsp & nbsp DoPlay : array[Booleano] of String =
& nbsp & nbsp & nbsp & nbsp & nbsp ('Set cdaudio door espera cerrada',
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp de 'Set cdaudio door open esperar')
var
& nbsp & nbsp MyError : LongInt
& nbsp & nbsp MyErrorString : array[0..MAXERRORLENGTH - 1] of char
begin
& nbsp & nbsp MyError := mciSendString(pChar(DoPlay[AOpen]), nil, 0, 0)
& nbsp & nbsp si MyError <> 0 then
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp MciGetErrorString(MyError,MyErrorString,MAXERRORLENGTH - 1)
& nbsp & nbsp & nbsp & nbsp Showmessage(MyErrorString)
& nbsp & nbsp & nbsp & nbsp Salida
& nbsp & nbsp final
fin