Статус загрузки программы

[Amed]

Project | Properties | Startup Object: Form1

[Rodos]

Amed, Thanks!

[Rodos]

BV, уже почти все готово, но есть одно "но". У меня в программе есть несколько звуков, при воспроизведении другого звука, основная мелодия программы останавливается и включается заново. Можно сделать, чтобы они работали параллельно и не зависили друг от друга.

[BV]

Да - DirectSound.

[Rodos]

DirectSound - вообще нужен, когда допустим 3 мелодии играют. А у меня простое кратковременное сопровождение нажатия на кнопки, и то стандартными звуками из Windows. У меня MMControl все это сделать мог, ну так как ты сказал твой класс полностью заменяеи его, я решил от него отказаться. Может есть какие-то команды на стандартные звуки Windows?

[BV]

sndPlaySound?

[Rodos]

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

Private Declare Function sndPlaySound _
Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszName As String, ByVal dwFlags As Long) _
As Long
'
' Описание значений параметра dwFlags:

Const SND_SYNC = &H0      ' Файл воспроизводится синхронно
      ' и функция не возвращает управление до окончания воспроизведения

Const SND_ASYNC = &H1  ' Файл воспроизводится асинхронно
      ' и функция возвращает управление сразу же после
      ' начала воспроизведения. Для того, чтобы
      ' прервать воспроизведение, необходимо вызвать
      ' функцию sndPlaySound с именем файла, равным ""

Const SND_NODEFAULT = &H2 ' Указывает на то, что если файл,
      ' заданный первым параметром, не найден, то не должен
      ' воспроизводиться файл по умолчанию

Const SND_MEMORY = &H4 ' Указывает на то, что имя файла
      ' соответствует WAV-файлу, находящемуся в памяти,
      ' например, загруженному из ресурса

Const SND_LOOP = &H8  ' Файл воспроизводится от начала до
      ' конца бесконечное число раз до тех пор, пока не
      ' вызвана функцию sndPlaySound с именем файла, равным "".
      ' При таком воспроизведении должен быть указан и флаг
      ' SND_ASYNC

Const SND_NOSTOP = &H10   ' Функция возвращает FALSE, если
      ' в момент ее вызова уже воспроизводится какой-нибудь файл

' Соответственно, реальное обращение
' к функции sndPlaySound может выглядеть примерно так

Private Sub Command1_Click()
Result = sndPlaySound("Sound\NIMClick.wav", SDN_ASYNC)
End Sub

В пустой форме все с этим кодом работает, а в проекте с медиа классом ругается на SDN_ASYNC. Может знаешь в чем дело?

[BV]

...

[Rodos]

BV, большое спасибо за помощь, все получилось и заработало. На этом думаю, тему можно закрыть.