Скачать: CL | DM;

Как програмно открыть защелку СD-ROM   Найти похожие ветки 

← →
V-navigator   (2003-05-21 19:15) [0]

Как програмно открыть защелку СD-ROM (mciSendString и mciSendMessage я уже знаю)

---

← →
Song ©   (2003-05-21 19:28) [1]

Раз знаешь в чём проблема?

---

← →
Intell ©   (2003-05-21 21:01) [2]

Тебе, я понял, нужен пример:

в 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;

Узнавай дальше сам, проще некуда.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c