Как из exe файла извлечь музыку. Как извлечь все ресурсы из EXE или DLL файла

Delphi-Help

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

Читайте также  Google translate по фотографии. Как перевести текст с фотографии — лучшие онлайн-сервисы и приложения

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

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

procedure TForm1.Button1Click(Sender: TObject);beginPlaySound(‘TESTWAV’, 0, SND_RESOURCE or SND_ASYNC);end;

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

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

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

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

Оставьте комментарий