Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.05.2013, 14:46   #1
OmegaBerkut
Спокойный псих
Участник клуба
 
Аватар для OmegaBerkut
 
Регистрация: 19.03.2013
Сообщений: 1,538
По умолчанию Ресурсы (*.res) и exe-шники

Меня интересует такой вопрос...
Можно ли как то заключить в файл ресурса файл программы, когда в программе уже пришитый такой файл ресурса ? Если да, то как ? Если нет, то почему ?

И, если нет, можно ли сделать не "прямую рекурсию", а "косвенную" ?
То есть: в программу "носитель" засунуть ресурс, а в ресурсе уже есть другая программа, в которой ресурс с программой "носителем" ?

P.S. Что произойдёт с компьютером, если подобные "программные развёртки" (как я их назвал) будут происходить по событию OnCreate формы ?

И чё это такое вообще может быть ? У меня подобные мысли приходят перед тем, как я засну: вчера вечером перед сном.
Подпись ? Не, не слышал ...
OmegaBerkut вне форума Ответить с цитированием
Старый 20.05.2013, 15:22   #2
beegl
instagram
Участник клуба
 
Аватар для beegl
 
Регистрация: 24.05.2008
Сообщений: 1,451
По умолчанию

1. Пишем в блокноте RC-файл, куда прописываем все нужные нам программы, например:
ARJ EXEFILE C:\ARHIVERS\ARJ.EXE

2. Компилируем его в ресурс при помощи Brcc32.exe. Получаем RES- файл.
3. Далее в тексте нашей программы:

Код:
implementation
{$R *.DFM}
{$R test.res} //Это наш RES-файл

// Процедура для извлечения ресурса в указанный файл
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
  Res : TResourceStream;
begin
  Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
  Res.SavetoFile(ResNewName);
  Res.Free;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 // Записывает в текущую папку arj.exe
 ExtractRes('EXEFILE', 'ARJ', 'ARJ.EXE');
end;
источник
beegl вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
програмно включить res файл в exe Volkogriz Общие вопросы Delphi 8 13.01.2013 17:16
Ресурсы файла Exe -Jack- Общие вопросы Delphi 7 28.10.2012 14:59
програмно вызвать brcc.exe, то не собирает ресурсы! Человек_Борща Общие вопросы Delphi 9 30.05.2011 02:10
Запись в ресурсы собственного exe? Человек_Борща Общие вопросы Delphi 3 02.08.2010 15:19
Ресурсы. Как запихать .bmp в приложение .exe? КСВ Мультимедиа в Delphi 6 24.10.2009 06:25