Скачать: CL | DM;

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

← →
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. Очень надо. Заранее спасибо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c