Как програмно открыть защелку СD-ROM

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

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

← →
Song © (2003-05-21 19:28) [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;

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

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