Управление двумя CD приводами

[Ducis]

Как открыть/закрыть лоток одного сидюка знают все:

Private Declare Function mciSendString _
Lib "winmm.dll" Alias "mciSendStringA" ( _
ByVal lpstrCommand As String, _
ByVal lpstrReturnString As Any, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long _
) As Long
Dim Status As Integer
Private Sub cmdOpen_Click()
Status = mciSendString("Set CDAudio Door Open Wait", 0&, 0, 0)
End Sub
Private Sub cmdClose_Click()
Status = mciSendString("Set CDAudio Door Closed Wait", 0&, 0, 0)
End Sub

А если в системе 2 сидюка. Этот код открывает/закрывает первый.
Можно ли управлять каждым по отдельности?

[Urvin]

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

mciSendString('open E: type cdaudio alias cd', nil, 0, 0);