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

[netmax]

Такая проблема у меня на машине стоит два сдрома первый secondary master второй - соответсвенно secondary slave
Когда был только первый отрытие не представляло проблем. Скажем можно так mcisendstrint(....) и все. Сейчас тоже так можно - окрывается первый (тот который мастер), а как отрыть второй???

[idLe]

Не знаю, но в MSDN есть отличный сэмппл на чистом API для открывания всяких "removable media". Без юзанья MCI. Он спрашивает тока букву диска и высовывает его (по идее, если два сидюка - значит две буквы :) ). Только в Contents в MSDN его нет, в Search напиши "HOWTO: Ejecting Removable Media in Windows NT/Windows 2000" - и он все найдет :biglaugh::.

[vasketsov]

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

Добавлено:

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

Добавлено:

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

[netmax]

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

[vasketsov]

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

[IkaMazini]

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]

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