Проигрывается ли файл?

[Ципихович Эндрю]

Перед остановкой музыкального файла подскажите как узнать проигрывается ли он при помощи ВБА

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

'объявляем API вверху кода для воспроизведения файлов в формате mp3 и wav
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
'для воспроизведения
Call mciExecute("play C:\WINDOWS\Media\Моцарт.wav")
'для остановки музыки
'Вот здесь и нужна проверка ???
If  Then Call mciExecute("close C:\WINDOWS\Media\Моцарт.wav")

Я хочу остановить только в случае если он проигрывается, если он не проигрывается и я его попытаюсь остановить тогда получу сообщение от Винды, я не хочу получать это сообщение. Для этго и нужна проверка

[Debugger]

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

Dim b As Boolean
...
b=True
Call mciExecute("play C:\WINDOWS\Media\Моцарт.wav")
....
If b Then Call mciExecute("close C:\WINDOWS\Media\Моцарт.wav"):b=false

[Ципихович Эндрю]

Я так понимаю после проигрывания файла булевая переменная b должна стать в положение Ложь, но увы этого не происходит
Затем у Васили ошибка или что но указано: If b Then в таком случае получае сообщение от Винды
Если предположить, что Вы ошиблись и надо, чтобы было If b = True Then, тогда как я и говорил после проигрывания файла булевая переменная b не становится в положение Ложь

[GDK]

А не проще применить On Error Resume Next ...... On Error Goto 0? Хотя фиг его знает сработает ли это, но думаю стоит попробовать.

[Ципихович Эндрю]

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

'объявляем API вверху кода для проверки проигрывается ли файл
Private Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRlpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'_______________________________________________________________________________________________
'объявляем API вверху кода для воспроизведения файлов в формате mp3 и wav
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
'для воспроизведения
Call mciExecute("play D:\ФИЛЬМЫ\Моцарт.wav")
'проверка воспроизводится ли файл
Dim strMCIAlias As String
Dim strMode As String * 255
strMCIAlias = "D:\ФИЛЬМЫ\Моцарт.wav"
Call mciSendString("Status " & strMCIAlias & " mode", strMode, 255, 0)
'для остановки музыки
If strMode Like "*playing*" Then Call mciExecute("close D:\ФИЛЬМЫ\Моцарт.wav") 'если файл не проигрывается strMode Like "*stopped*"