Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
29th
Апр
Как засунуть звуковой файл в exe-шник?
Posted by Chas under Пост-обзор
пишу будильник.ну не совсем будильник но суть не в этом.с ним у меня должен быть свой звуковой файл и я бы хотел как то засунуть его в программу если это возможно
eoln:
Ничего подобного, всё гораздо проще. Допустим надо засунуть файл 0.mp3
- Создаём файл SOUND.RC и пишем в него одну строку MUS MP3FILE 0.mp3
- В коде, например, в разделе implementation после строчки {$R *.dfm} добавляем {$R ‘Sound.res’ ‘Sound.rc’}
- Добавляем в проект наш файл SOUND.RC. Например через меню Project – Add to project
- Всё можно компилировать.
Чтобы достать файл во время работы, достаточно написать код
procedure TForm1.Button1Click(Sender: TObject);
var
Res: TResourceStream;
begin
Res := TResourceStream.Create(Hinstance, 'MUS', 'MP3FILE');
Res.SavetoFile('Music.mp3');//Имя под которым сохраним музыкальный файл
Res.Free;
end;