Музыка во время показа формы

← →
studentRSU (2004-05-08 21:58) [0]

Как сделать так, чтобы во время показа формы звучала музыка? Причем муз. файл должен входить в состав откомпилированного exe-шника.

← →
Mim1 © (2004-05-09 00:06) [1]

Поместите wav файл в ресурс, для воспроизведения используйте playsound (она умеет играть из ресурса), для остановки так же можно ее использовать. При создании wav файла используйте кодек который наверняка будет у пользоватля (какой нибудь стандартный).

Создайте файл waver.rc
-----------------
lame wave loadoncall z.wav
-----------------
Далее откомпилируйте
brcc32 waver.rc

далее в программе
procedure TForm1.Button1Click(Sender: TObject); begin playsound("lame",hinstance, SND_RESOURCE or SND_NOWAIT or SND_NODEFAULT or SND_NOSTOP or SND_ASYNC); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin PlaySound(nil,HInstance,SND_PURGE); end;

← →
studentRSU (2004-05-20 15:14) [2]

Большое спасибо за помощь. Извиняюсь, что не поблагодарил раньше, просто доступ к интернету у меня не постоянный. У меня возник еще такой вопрос. При первом запуске программа начинает воспроизводить мой звук с начала, но при каждом последующем запуске звук воспроизводится с момента остановки в предыдущий раз. Как это можно изменить, чтобы звук всегда воспроизводился с начала? Вот с такими параметрами я запускаю процедуру:
playsound("lame",hinstance, SND_RESOURCE or SND_NOWAIT or SND_NODEFAULT or SND_NOSTOP or SND_ASYNC or SND_LOOP);

← →
studentRSU (2004-05-21 23:40) [3]

Ну неужели никто не может мне помочь? Как мне сделать так, чтобы мелодия всегда при запуске начинала проигрываться с начала? Подключенный файл ресурса с мелодией я откомпилировал так, как подсказал мне Mim1, функция проигрывания звука (с параметрами) в предыдущем сообщении. Кто-нибудь, HELP ME. Очень надо. Заранее спасибо.

Музыка во время показа формы Найти похожие ветки