Как воспроизвести музыку из 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» и музыка из неё не куда не денется.
