Как выдвинуть дверцу CD-ROM?

Содержание материала

Страница 1 из 3

Code:

mciSendString('Set cdaudio Door Open Wait', nil, 0, handle);

mciSendCommand(mp.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);

Основываясь, на этой возможности можно написать классную прогу. Представьте себе: ламерюга с умным видом тайпает какой-нибудь док, а тут его сидюк начинает вести себя как взбесившийся: то откроется, то закроется, то откроется, то закроется, то откроется, то закроется, то откроется, то закроется, то откроется, то закроется, то откроется, то закроется, то откроется, то закроется, то откроется, то закроется... и так, например, каждый час... (или минуту...или секунду...)

Для начала научимся открывать CD-ROM по нажатию простого "батона":

В uses нужно сначала объявить модуль MMSystem:

Code:

uses

MMSystem;

По нажатию кнопок написать:

Code:

//Для открытия

procedure TForm1.OpenBtnClick(Sender: TObject);

begin

mciSendString('Set cdaudio door open wait', nil, 0, handle);

end;

//Для закрытия

procedure TForm1.CloseBtnClick(Sender: TObject);

begin

mciSendString('Set cdaudio door closed wait', nil, 0, handle);

end;

Ну а если вы уж хотите, чтобы это всё происходило автоматически с периодичностью в несколько минут, тогда выносим наш любимый компонент - Timer. Устанавливаем его свойство Interval в 30000 миллисекунд - это 30 секунд, т.е. каждые полминуты глупый ламерюга будет подскакивать...И на событие OnTimer, предвкушая удовольствие, пишем: сначала в публичных объявлениях объявим переменную логического типа IsOpen для обозначения времени когда открыт CD-ROM

Как выдвинуть дверцу CD-ROM?

Как выдвинуть дверцу CD-ROM?

Содержание материала

Новые статьи

Ранние статьи

Случайные статьи

Популярные статьи

Добавить комментарий

Системные функции и WinAPI

Вопросы по Delphi

VCL

Язык Дельфи

Облако тегов

Карта сайта