Страница 93 из 127
Закрытие привода CD-ROM
// Чтобы программно закрыть привод CD-ROM, подключите
// после vcl.h заголовочный файл mmsystem.h
// и вызовите функцию mciSendString:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
mciSendString("Set cdaudio door closed wait", NULL, 0, Handle);
}