mciSendString и mciSendCommand

[-=alp=-]

Я уже не могу, помогите.
Я облазил весь MSDN, кучу сайтов.
Изучил от и до API функции mciSendString и mciSendCommand.
Я уже целый месяц упорно «занимаюсь любовью» с этими функциями.
А вот в чем проблема!?
Когда я хочу проиграть CDA файл с компакт диска например 8 или 3 (не важно), он = VB всегда проигрывает только 1-ый файл. (Я все, вроде, делаю правильно).
Если использовать mciSendString функцию то код такой:

mciSendString "open e:\Track08.cda", 0, 0, 0
mciSendString "play e:\Track08.cda", 0, 0, 0

(cd-rom это e:\)
_______________________________________________________
Windows как жена и с ней плоха, а без неё ещё хуже.

[MEMBER]

В форму

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

Private Sub Command1_Click()
    i = MSS("OPEN E:\Track08.cda CDAUDIO ALIAS FIRST", 0, 0, 0)
    i = MSS("PLAY FIRST", 0, 0, 0)

End Sub

Private Sub Command2_Click()
    MSS "STOP FIRST", 0, 0, 0
    MSS "CLOSE FIRST", 0, 0, 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MSS "STOP FIRST", 0, 0, 0
    MSS "CLOSE FIRST", 0, 0, 0
End Sub


В модуль

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

Public Declare Function MSS Lib "winmm.dll" Alias "mciSendStringA" _
                                            (ByVal lpstrCommand As String, _
                                            ByVal lpstrReturnString As String, _
                                            ByVal uReturnLength As Long, _
                                            ByVal hwndCallback As Long) As Long

Think different :0)
Тут ещё гляньте:
http://demi-s.narod.ru/corunload.htm

[-=alp=-]

что-то не работает

i = MSS("OPEN E:\Track08.cda CDAUDIO ALIAS FIRST", 0, 0, 0)
i = MSS("PLAY FIRST", 0, 0, 0)

музыки нет

[MEMBER]

http://demi-s.narod.ru/corunload.htm