Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как объеденить два exe - файла в один, exe+exe=exe

bob1906 © (2002-08-13 21:53:00)
Как объеденить два exe - файла в один, exe+exe=exe (Не для вируса)

bogachev (2002-08-16 14:44:00) [1]
Вставить какую-нибудь программу внутрь EXE файла

1. Пишем в блокноте RC-файл, куда прописываем все нужные нам программы, например:
ARJ EXEFILE C:\UTIL\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;

Lexa18 (2002-08-14 22:47:00) [2]
А что это за "наш Res-файл"?

Sergant33 (2002-08-14 19:22:00) [3]
Поюзай мою компоненту, (грузи файл из потока)

Сергей Медяник (2002-08-14 19:16:00) [4]
>zavdim
Если можно, пожалуйста подскажи как именно засунуть. Мне раньше не было острой необходимости, а сейчас нужно с программой таскать несколько AVIшек для цивильного оформления - хотелось бы их упрятать в EXE.

.nuke (2002-08-14 11:10:00) [5]
А еще можно использовать специальную программульку
Joiner-2.1 найти её можно на hack-info.ru или у меня

zavdim (2002-08-14 09:48:00) [6]
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
//Записываем Exe куда надо - усе.
ExtractRes("EXEFILE", "ARJ", "ARJ.EXE");
end;

Пример не мой - но работает проверял.
Как засунуть Exe в Res - если надо спросишь.

Андрюхин (2002-08-14 08:39:00) [7]
И мне тоже надо, я для организации Бэкапа в своей проге использую сторонний консольный бэкапщик. Устанавливать его отдельно не хочу, а обновление exe-шника проги на клиентах уже налажена. Вот и хочется с очередным обновлением проги установить на всех клиентах бэкапщик.

ППавел (2002-08-14 04:49:00) [8]
Мне тоже такое надо.
Я пишу что то вроде контейнера в который мне необходимо вставить exe файлы и не только а потом их вытащить, а вот как это сделать незнаю.

Поясни (2002-08-14 03:58:00) [9]
тогда. А для чего? Иначе смысл не понятен. И ответ неочевиден.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »