Home

Page 67
Page 67
background image

60 Глава

  i n e t c p l . c p l ' ) ,

Следующая строка отобразит окно настроек экрана:

 , Pchar  ( ' s h e l l 3 2 ,

 ,

Программное управление устройством

для чтения компакт-дисков

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

открывается или закрывается CD-ROM:

 : Cardinal;

OK: boolean;

begin

 := 'CDAudio';

repeat

mciSendCommand(0,

DI :=

 ;

 mci_Close,

 );

until OK;

end;

В первой строчке кода переменной ок присваивается значение false. Потом

запускается цикл

 который будет выполняться, пока эта пе-

ременная не станет равной true. Но так как нигде и никто не изменяет зна-
чение этой переменной, то она всегда будет равна false, и цикл получится

бесконечным.

Перед началом цикла необходимо еще заполнить параметр lpstrDeviceType

структуры OpenParm. Сюда нужно занести значение CDAudio, что и будет
указывать на необходимость работы с CD-ROM.

Ну а дальше запускается цикл, в котором поочередно то открывается двер-
ца, то закрывается. В конце цикла ставится задержка в пять секунд


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.