| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как програмно открыть защелку СD-ROM
V-navigator © (2003-05-21 19:15:00)Как програмно открыть защелку СD-ROM (mciSendString и mciSendMessage я уже знаю)
Intell (2003-05-21 21:01:00) [1]Тебе, я понял, нужен пример:
в USES добавляешь "mmsystem"
===========================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString("Set cdaudio Door Open Wait", nil, 0, handle); {Выдвинуть}
end;
===========================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString("Set cdaudio door closed wait", nil, 0, handle); {Задвинуть}
end;
Узнавай дальше сам, проще некуда.
Song (2003-05-21 19:28:00) [2]Раз знаешь в чём проблема?
| |
