Открытие лотка CDROM

idLe · Отправлено: **10:25, 19-03-2003** | #2

Не знаю, но в MSDN есть отличный сэмппл на чистом API для открывания всяких "removable media". Без юзанья MCI. Он спрашивает тока букву диска и высовывает его (по идее, если два сидюка - значит две буквы

). Только в Contents в MSDN его нет, в Search напиши "HOWTO: Ejecting Removable Media in Windows NT/Windows 2000" - и он все найдет

:.

vasketsov · Отправлено: **20:50, 19-03-2003** | #3

http://zw.nightmail.ru/_cd.htm

Добавлено:

Да, пусть Native API не пугает, это можно сделать и через CreateFile/DeviceIoControl/CloseHandle

Добавлено:

А еще можно через ASPI.

netmax · Отправлено: **05:54, 20-03-2003** | #4

idLe
Это я видел, но это лишь часть проблемы. Выдвинуть то я выдвину, а задвинуть обратно

vasketsov · Отправлено: **08:09, 20-03-2003** | #5

VBMUSTDIE
У меня на zw.nightmail.ru и это есть

IkaMazini · Отправлено: **22:02, 08-10-2004** | #6

uses MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;

vasketsov · Отправлено: **22:06, 08-10-2004** | #7

IkaMazini
Вы внимательно читали корневое сообщение?