VPF::Внедрение exe в программу - Форум программистов

VoAnt

Дата 31.10.2005, 12:46 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 9.4.2004
Где: Украина г. Киев

Репутация: нет
Всего: 2

Постановка задачи
Существует две exe программы

1-я созданная мною, 2-я - чужая

Вопрос

Исспользуя какой компонент (кроме OLEContainer) можно загрузить в мою программу чужой exe файл.

Т.Е. если грубо представить чтобы после добавления чужого ехе файла в мою программу размер exe файла слепленной программы был равен размер чужой программы + размер моей программы.

Другими словами.

Чтобы моя программа была переносчиком чугого ЕХЕ-шника ...

Хуу.. надеюсь понятно ..
Помогите пл!

Спасибо!

_hunter

Дата 31.10.2005, 13:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

вариант 1 -- береш исчодники UPX и переделываеш ( или не переделываеш ) под себя
вариант 2 ( тупой ) -- тупо приписываеш к своему файлу второй, при запуске пишеш этот файл на диск и запускаеш

--------------------

Tempora mutantur, et nos mutamur in illis...

Bes

Дата 31.10.2005, 17:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 5
Всего: 7

Имею для этого дела утилиту, очень красиво работает и всегда качественно, наверное потому что не мной написана. smile

могу поделиться

Poseidon

Дата 31.10.2005, 19:07 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

VoAnt, запихни сторонний экзешник как ресурс и делов-то smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

bartram

Дата 31.10.2005, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: 3
Всего: 29

VoAnt, представь чужой файл в виде массива символов smile

вот так:

Код


unit filepas;

interface


procedure FileToPas(FileName,PasFileName:String);


implementation
uses
SysUtils;





procedure FileToPas(FileName,PasFileName:String);
var BF:File of Byte;
    F:TextFile;
    P,N,S:String;
    BFSize:integer;
    BBB:Byte;
begin
     AssignFile(BF,FileName);
     Reset(BF);
     BFSize:=FileSize(BF);
     P:=ExtractFilePath(FileName);
     N:=ExtractFileName(FileName);
     AssignFile(F,PasFileName);
     ReWrite(F);
     Writeln(F,'unit '+PasFileName+';');
     Writeln(F);
     Writeln(F,'interface');
     Writeln(F);}
     Writeln(F,'const FileSize:integer='+IntToStr(BFSize)+';');
     Writeln(F,'FileData:array[0..'+IntToStr(BFSize-1)+'] of Byte=');
     Writeln(F,'(');
     while not Eof(BF) do
     begin
          S:='';
          while (not Eof(BF)) and (Length(S)<80) do
          begin
               Read(BF,BBB);
               S:=S+IntToStr(BBB)+',';
          end;
          if Eof(BF) then Delete(S,Length(S),1);
          Writeln(F,S);
     end;
     CloseFile(BF);
     Writeln(F,');');
     Writeln(F);
     Writeln(F,'procedure SaveToFile(FileName:String);');
     Writeln(F);
     Writeln(F,'implementation');
     Writeln(F);
     Writeln(F,'procedure SaveToFile(FileName:String);');
     Writeln(F,'var F:File of Byte;');
     Writeln(F,' i:integer;');
     Writeln(F,'begin');
     Writeln(F,'AssignFile(F,FileName);');
     Writeln(F,'ReWrite(F);');
     Writeln(F,'for i:=0 to FileSize-1 do Write(F,FileData[i]);');
     Writeln(F,'CloseFile(F);');
     Writeln(F,'end;');
     Writeln(F);
     Writeln(F,'end.');
     CloseFile(F);
end;



end.

Процедура:

Код


procedure FileToPas(FileName,PasFileName:String);

Превращает твой файл в массив символов который потом можно прицепить к своей проге smile

А вот с помощью этой процедуры можно массив превратить обратно в файл smile

Код


procedure SaveToFile(FileName:String);

Она будет создана автоматически в том же pas файле с массивом.
Надеюсь все понятно разьяснил smile

--------------------

В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image

Bes

Дата 1.11.2005, 11:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 5
Всего: 7

2bartram: именно этот исходник у меня и есть.. smile

не тобой ли написан?
Добавлено @ 11:28
потому что я его гдето надыбал лет 5 назад

Akina

Дата 1.11.2005, 12:16 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: нет
Всего: 454

copy /b my.exe+another.exe
а чтобы не гемориться с поиском водораздела - в своей программе предусмотри константу = длине своего EXE и меняй ее.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »