На Builder
| Код |
//---------------------------------------------------------------------------
#include <mmsystem.h>
#include <windows.h>
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
mciSendString("Set cdaudio door open wait", NULL, 0, Application->Handle);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
mciSendString("Set cdaudio door closed wait", NULL, 0, Application->Handle);
}
//---------------------------------------------------------------------------
|
|