Флаги функции PlaySound

[Source]

Мне надо, чтобы звук выводился асинхронно и предыдущий вызов проиграло до конца. Ставлю флаги SND_ASYNC + SND_NOSTOP - не работает. SND_NOSTOP - Событие будет проиграно сразу после проигрывания уже играющего события.

[HiSER]

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

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

А это не пойдёт?

[AD'onis]

Эта тема уже поднималась (причем недавно ). Результат поиска:
http://bbs.vbstreets.ru/viewtopic.php?t=30973&highlight=%E7%E2%F3%EA

[Mikle]

Source

Ставлю флаги SND_ASYNC + SND_NOSTOP

А может SND_ASYNC or SND_NOSTOP?

[AD'onis]

Mikle
Один фиг, не срабатывает, я тож по-всякому крутился, в итоге нашел другой выход и все

[Хакер]

Mikle
А какая разница, если числа бин-круглые (а они бин-круглые для флагов)

[Saturn.65]

Сделал RES файл для проигрывания музыки:

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

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Dim WaveData() As Byte       ' Буфер для того чтобы удержать звуковой файл.
Private Const SND_ASYNC = &H1   'Асинхронное воспроизведение
Private Const SND_MEMORY = &H4 'lpszSoundName это не имя файла, а адрес в памяти.
Private Sub Command1_Click()
'ResSoundPlay [ ID номер звука ]

'Это можно добавлять также в событие Form_Load // а вообще куда хотите туда и добавляйте.
Dim RetValue As Long
WaveData() = LoadResData("FG", "WAVE") 'Загрузка звукового файла.
RetValue = sndPlaySound(WaveData(0), SND_ASYNC Or SND_MEMORY) 'Воспрозведение.
End Sub


Музыка играет. А вот как остановить?
И еще, по моему mp3 не берет. только wav. От чего это зависит?

[Хакер]

А вот как остановить?

Передав 0 в качестве первого аргумента. Не строку "0", а 0. Т.е. передавать нужно vbNullString.

И еще, по моему mp3 не берет. только wav. От чего это зависит?

Ну естественно не берёт. И не будет брать.

[Source]

1. при mciSendString 2 звука сливаются в один (одновременное проигрывание), а мне надо чтобы проиграло первый звук, а за ним второй в фоновом режиме. Может, у команды "play" есть ключи (в поисковике не нашёл)?

2. я так понимаю, что звуковой драйвер всегда свободен для моего приложения (если в нём не проигрывается звук), т.е., если звук того же формата проигрывается в другом приложении, то на занятость драйвера для меня это не влияет?