| Статистика | 
|
|
Каталог статей
Открыть и закрыть С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;
|
|
|
Просмотров: 710
5
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
