Si lo que quieres es abrir o cerrar la caja de CD esto se hace de la siguiente forma.
#include <mmsystem.h>
code:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
mciSendString("Set cdaudio door open wait", NULL, 0, Handle); //Para abrir
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
mciSendString("Set cdaudio door closed wait", NULL, 0, Handle); //Para cerrar
}
//---------------------------------------------------------------------------
Saludos, espero sea lo que querías.