| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Музыка во время показа формы [D7, WinXP]
studentRSU © (2004-05-08 21:58:00)Как сделать так, чтобы во время показа формы звучала музыка? Причем муз. файл должен входить в состав откомпилированного exe-шника.
studentRSU (2004-05-21 23:40:00) [1]Ну неужели никто не может мне помочь? Как мне сделать так, чтобы мелодия всегда при запуске начинала проигрываться с начала? Подключенный файл ресурса с мелодией я откомпилировал так, как подсказал мне Mim1, функция проигрывания звука (с параметрами) в предыдущем сообщении. Кто-нибудь, HELP ME. Очень надо. Заранее спасибо.
studentRSU (2004-05-20 15:14:00) [2]Большое спасибо за помощь. Извиняюсь, что не поблагодарил раньше, просто доступ к интернету у меня не постоянный. У меня возник еще такой вопрос. При первом запуске программа начинает воспроизводить мой звук с начала, но при каждом последующем запуске звук воспроизводится с момента остановки в предыдущий раз. Как это можно изменить, чтобы звук всегда воспроизводился с начала? Вот с такими параметрами я запускаю процедуру:
playsound('lame',hinstance, SND_RESOURCE or SND_NOWAIT or SND_NODEFAULT or SND_NOSTOP or SND_ASYNC or SND_LOOP);
Mim1 (2004-05-09 00:06:00) [3]Поместите 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;
| |
