Delphi-Help

Главная Статьи Аудио Как воспроизвести музыку из exe файла

Как воспроизвести музыку из exe файла

Оцените материал
(1 Голосовать)


Как воспроизвести музыку из exe файла

Вы наверно не раз замечали такие приложения, которые используют мультимедиа, это может быть звуки, анимация и многое другое. Хорошим (а может, и нет) примером будет те же самые кряки. Многим приходилось ими пользоваться, и при каждом запуски играет музыка. Это происходит за счёт того, что мультимедийный файл был «Вшит» в исполняемый экзешник. Собственно именно это мы сейчас и сделаем, со своим приложением.

Создаём новый проект и сохрани его на диске. Я сохранил здесь «C:\testRC».

Приготовьте WAV файл, назовите его 1.wav. Теперь его необходимо положить в туже директорию, куда был сохранён проект, («C:\testRC»).

Следующим шагом будет создания *.rc файла. Отройте обычный блокнот и запишите в него строку:

· TESTWAV WAVE 1.wav

· TESTWAV – Это имя, которое будет указываться при вызове ресурса в программе.

· WAVE – Это тип ресурса, в нашем случаи WAV файл.

1.wav – Это имя файла, который Вы положили в директорию с программой.

Теперь сохраните этот файл с именем «test.rc». Теперь необходимо скомпилировать наш файл. Для этого запустите «cmd.exe». Наберите следующею команду:

brc32.exe путь до файла «test.rc» (Путь до файла писать вручную не стоит, просто перетащите в окно файл «test.rc» и всё).

Нажмите «Ввод» и уведете в папке с программой откомпилированный *.res файл.

Вернёмся к Delphi, и напишем не сложный код :)

Найдите строчку «{$R *.dfm}» и сразу после неё допишите «{$R test.res}»

Этими действиями мы связали *.res файл с исполняемым файлом, теперь можно загружать его ресурсы, когда это будет нужно нам.

В общем, это нам уже нужно! В «uses» подключаем модуль «MmSystem»

Разместите на форме кнопку, по нажатии которой будет, воспроизводиться наша мелодия.

Обработчик событий для неё выглядит вот так:

procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('TESTWAV', 0, SND_RESOURCE or SND_ASYNC);
end;

Запустите приложения, и по нажатию кнопки воспроизведётся наш wav файл.

Логично будет предусмотреть кнопку «Stop» в приложении. Поместите на форму ещё одну кнопку, и пропишите обработчик событий:

procedure TForm1.Button2Click(Sender: TObject);
begin
PlaySound(0,0, SND_PURGE);
end;

Теперь Вы можете распространять программу без файла «1.wav» и музыка из неё не куда не денется.

Прочитано 7447 раз

Авторизация



Счетчики