VPF::Помогите с фоновым звуком - Форум программистов

hackvl

Дата 24.8.2010, 06:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 21.5.2010

Репутация: нет
Всего: нет

Цитата

Привожу пример чтобы добавить звук в свою программу на Delphi, для этого нужно выполнить несколько простых действий. Создай файл Sound.rc в нём напиши: Sound RCDATA LOADONCALL Sound.wav сохрани и перенеси в каталог \Borland\Delphi7\Bin, сюда же кидай Sound.wav. Теперь перенеси мышкой файл Sound.rc на файл brcc32.exe и в этой папке появится файл Sound.RES, этот файл перенеси в свою папку программы а в самом проекте в uses добавь MmSystem а после {$R *.dfm} добавь {$R Sound.RES}. Теперь добавь
PlaySound('Sound', 0, SND_ASYNC or SND_LOOP);
в нужное тебе место.

Сделал фоновую музыку во второй форме но когда запускаю программу она почемуто сразу начинает играть в первой форме . Как исправить?
Нужно чтоб при открытии второй формы там играла музыка

Snowy

Дата 24.8.2010, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

Значит ты поставил запуск звука на OnCreate, а вторая форма у тебя создаётся автоматом при старте приложения.
Или создавай форму вручную, а не автоматом, либо запускай звук перед показом второй формы - сначала PlaySound, а потом Form2.Show.

hackvl

Дата 25.8.2010, 03:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 21.5.2010

Репутация: нет
Всего: нет

На форме 2 в OnAktivate написал PlaySound('Sound', 0, SND_ASYNC or SND_LOOP);
Для остановки проигрывания в кнопку закрытия формы вписал PlaySound(nil, 0, 0);

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »