Подскажите, люди добрые, как юзать CD-ROM

[[iQ][BuG]]

У меня стоит два CD-ROMа. ОдЫн мастер, второй - слэйв.
Очень интересует вопрос, как мона открыть / закрыть любой
из них, не используя API функцию mciSendString?
а то я юзаю команды

Код: Выделить всё

mciSendString('Set cdaudio door open wait', nil, 0, handle);
mciSendString('Set cdaudio door closed wait', nil, 0, handle);

а они ток открывают / закрывают мастер, а слэйв не могут
как мона заюзать API функцию mciSendCommand?

[RoKon]

[iQ][BuG], Лично мне не приходилось этим заниматься, но что то подсказывает мне, что надо изменить параметр с 0 хотя-бы на 1.

[RoKon]

Вообщем вот на VB.

Код: Выделить всё

Теперь я могу открыть и диск D и диск F, но в зависимости от того какой диск я первым открываю после запуска VB, т.е. после запуска VB и запуска моей проги, если я первым открываю диск F, то он открывается, причем не зависимо от того, что я выбираю D или F. Чтобы открыть диск D необходимо перезапустить VB и тогда открывается только диск D.
Кажись после
mciSendString "open " & List1.List(List1.ListIndex) & " type cdaudio alias cdaudio", vbNullString, 0, 0
mciSendString "set cdaudio door open", vbNullString, 0, 0

Код: Выделить всё

mciSendString "close cdaudio", vbNullString, 0, 0
Всем огромное спасибо.
Это была недостоющая строка