Otwieranie i zamykanie szuflady CD-ROM-u

Aby po kliknięciu przycisku Button1 wysunięta została szuflada CD-ROM-u wywołujemy funkcję Windows API mciSendString(), która wysyła odpowiedni komunikat do urządzenia MCI (funkcja ta wymaga biblioteki mmsystem.h, którą dodajemy na początku pliku formularza):

Unit1.cpp

#include <mmsystem.h>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   mciSendString("Set cdaudio door open wait", NULL, 0 ,Handle);   
}

Natomiast, aby po kliknięciu przycisku Button1 szuflada CD-ROM-u została wsunięta wywołujemy tą samą funkcję podając tylko inne argumenty:

Unit1.cpp

#include <mmsystem.h>

void __fastcall TForm1::Button2Click(TObject *Sender)
{
   mciSendString("Set cdaudio door closed wait", NULL, 0, Handle);   
}