MensajePublicado: Jue 23 Nov, 2000 2:21 pm    Asunto: Abrir o cerrar la bandeja del CD-Rom Responder citando
Incluir:

#include <mmsystem.h>

code:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
mciSendString("Set cdaudio door open wait", NULL, 0, Handle); // abrir
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
mciSendString("Set cdaudio door closed wait", NULL, 0, Handle); // cerrar
}