Самый простой способ открытия и закрытия CD-ROM'a

 #include <MMSystem.hpp>
...
bool CDROMOPEN;
...
TMCI_Open_Parms OpenParm;
TMCI_Generic_Parms GenParm;
TMCI_Set_Parms SetParm;
Cardinal DI;

OpenParm.dwCallback = 0;
OpenParm.lpstrDeviceType = "CDAudio";
mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE, int(&OpenParm));
DI = OpenParm.wDeviceID;
Sleep(1000);
if (!CDROMOPEN) {
        mciSendCommand(DI, MCI_SET, MCI_SET_DOOR_OPEN, int(&SetParm));
        CDROMOPEN = true;
        Button1->Caption="Закрыть CD-ROM";
        }
else {
        mciSendCommand(DI, MCI_SET, MCI_SET_DOOR_CLOSED, int(&SetParm));
        CDROMOPEN = false;
        Button1->Caption="Открыть CD-ROM";
        }
Sleep(1000);
mciSendCommand(DI, MCI_CLOSE, MCI_NOTIFY, int(&GenParm));
...
Скачать исходники!!!