Открываем закрываем CD-ROM

[kowalev]

Следующий код запускает бесконечный цикл, в котором каждые 5 секунд
открывается или закрывается CD-ROM:

var
OpenParm: TMCIJDpen_Parms;
GenParm: TMCI_Generic_Parms;
SetParm: TMCI_Set_Parms;
DI : Cardinal;
OK: boolean;
begin
OK:=false;
OpenParm.lpstrDeviceType := 'CDAudio';
repeat
mciSendCommand(0, mci_Open, mci_Open_Type, Longint(QOpenParm));
DI := OpenParm.wDevicelD;
mciSendCommand(DI, mci_Set, mci_Set_Door_Open, Longint(@SetParm));
mciSendCommand(DI, mci_Set, mci_Set_Door__Closed, LQngint (@SetParm)) ;
mciSendCoitrmand(DI, mci_Close, mci_Notify, Longint (@GenParm) );
sleep(5000);
until OK;
end;

В первой строчке кода переменной ок присваивается значение false. Потом
запускается цикл repeat, .until, который будет выполняться, пока эта пе-
ременная не станет равной true. Но так как нигде и никто не изменяет зна-
чение этой переменной, то она всегда будет равна false, и цикл получится
бесконечным.
Перед началом цикла необходимо еще заполнить параметр lpstrDeviceType
структуры OpenParm. Сюда нужно занести значение CDAudio, что и будет
указывать на необходимость работы с CD-ROM.
Ну а дальше запускается цикл, в котором поочередно то открывается двер-
ца, то закрывается. В конце цикла ставится задержка в пять секунд
Данная информация только для ознакомительных целей!