Статистика | Зарегистрировано на сайте: Всего: 51642
Онлайн всего: 42 Гостей: 42 Пользователей: 0
|
|
Каталог статей
Открыть и закрыть СD дисковод с помощью Делфи7
Открыть и закрыть CD-ROM в Windows. В uses нужно дабвить MMSystem
В таймер пишем:
procedure TForm1.Timer1Timer(Sender: TObject); begin mciSendString('Set cdaudio door open wait', nil, 0, handle); mciSendString('Set cdaudio door closed wait', nil, 0, handle); end;
|
|
Просмотров: 708
| Рейтинг: 1.0/
5
Оштрафовать
| Жаловаться на материал |
|
|