Как из 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»

Читайте также  Как восстановить смски на айфоне. Восстановление SMS на iPhone

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

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

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

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