KAB
Я могу ошибаться,но мне кажется,тут надо смотреть в сторону функции
mciSendCommand, объявленной в модуле MMSystem.
К примеру,имеется следующий код на Delphi,заставляющий каждые пять секунд открывать/закрывать лоток CD-ROM'а:
Код:
var
OpenParm : TMCI_Open_Parms;
GetParm : TMCI_Generic_Parms;
SetParm : TMCI_Set_Parms;
DI : Cardinal;
OK : Boolean;
begin
OK := False;
OpenParm.lpstrDeviceType := 'CDAudio'; // Указываем на необходимость работы с CD-ROM'ом
repeat
mciSendCommand(0, mci_Open, mci_Open_Type, LongInt(@OpenParm));
DI := OpenParm.wDeviceID;
mciSendCommand(DI, mci_Set, mci_Set_Door_Open, LongInt(@SetParm));
mciSendCommand(DI, mci_Set, mci_Set_Door_Closed, LongInt(@SetParm));
mciSendCommand(DI, mci_Close, mci_Notify, LongInt(@GetParm));
Sleep(5000);
until OK;
end;
...взято из книжки Михаила Фленова.
Возможно навеит какие-нибудь мысли...
