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

Оценить
(0 голоса)

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

Еще в этой категории: « Форматирование длительности, заданной в секундах

Login to post comments

Счетчики

счетчик посещений
счетчик посещений Компьютеры :: Программирование