Как открыть нужный CD-Rom. - VB

Формулировка задачи:

Доброго дня всем! У меня на компе два CD-Rom'а. С помощью следующего кода открывается сидюк D:

 Private Sub Command1_Click()
 Dim lngResult As Long
 Dim lngCallBack As Long
 Dim strReturnString As String
 strReturnString = Space$(128)
 lngResult = mciSendString('set CDAudio door open', strReturnString,   128, 0)
 End Sub

А как открыть другой сидюк F? Наверное в строке 'set CDAudio door open' как-то надо прописать.

Решение задачи: «Как открыть нужный CD-Rom.»

textual
                            Листинг программы 
                        
                            mciSendString 'close cdaudio', vbNullString, 0, 0

Оцени полезность:

13 голосов , оценка 3.692 из 5

Похожие ответы