Склеивание

[bacho_sun]

Приветствую
Ребята подскажите как осуществить склеивание двух файлов exe.
У меня есть исходники на bcb обоих.
Нужно , чтобы при запуске один файл копировал из своего тела другой exe в какуюто папку.
Кто сталкивался с этим помогите пожалуйста.

[Алексей++]

склеивание тут ни при чём

второй экзешник надо в виде ресурса (блок данных) вставить в исходник первого. А первый создаст файл и зальёт в него блок данных, получится второй файл на диске
Подробности не подскажу, никогда не заталкивал блок данных в ресурсы ))

[RXL]

В BCB это проблематично. Скажем, в 6-м нет редактора ресурсов - его заменяет ImageEditor и, соотв., ничего кроме графики он не позволяет загрузить. Возможно как-то иначе можно...

[Джон]

Хммм... можно просто дубово-элементарно сделать. Надо только точно знать размер первого скомпилированного файла.
Потом:

1. копируем оба файла в один результат обзываем как первый экзешник

2. первый экзешник открывает себя для чтения и с позиции "своя длинна" копирует всё в другй EXE файл.

3. запускает его ... ну дальше фантазия

[zubr]

В BCB это проблематично. Скажем, в 6-м нет редактора ресурсов - его заменяет ImageEditor и, соотв., ничего кроме графики он не позволяет загрузить. Возможно как-то иначе можно...

Неужели? Не может быть. Стройки под рукой нет, но думаю как и в Delphi в каталоге Bin есть программка brcc32.exe, которая позволяет создавать res-файлы.
bacho_sun, у меня есть такой проект, но на Delphi, если устроит скину пример.

[RXL]

Попробовал так:

test.rc:

Код: (Text)

test RCDATA test.exe

brcc32 -fotest.res @test.rc

Получил test.res и подключил его к проекту.

Следующий код получает указатель на ресурс:

Код: (C++)

    HRSRC rc = FindResource(0, "test", RT_RCDATA);
    HGLOBAL test = LoadResource(0, rc);

После использования его надо освободить:

Код: (C++)

    FreeResource(test);

В загрузку ресурса стоит добавить проверку.

[zubr]

У борланда есть удобный класс TResourceStream

Код:

res=TResourceStream(HINSTANCE, "test", "RCDATA");
res.SaveToFile(....
res.Free;

[Алексей++]

а я ещё придумал решение )) Готовы оба файла. Запускаем третью - самописную утилитку, которая соберёт конечный вариант из этих двух и приписывает размер первого файла в конец (правда, проблемы с КС начнутся - это надо решить как-то)
дальше всё просто - запускаем гибрида, первый экзешник по размеру, записанному в конце, может узнать , откуда начинается второй файл и скопировать из тела гибрида в отдельный файл

[zubr]

А еще можно один экзешник запускать из другого не сохраняя его на диске,  из памяти процесса, то же относится и к длл.

[Алексей++]

zubr, а покажи, как

[zubr]

Алексей1153++, тебя дельфийский код устроит? Переводить в C времени нет.

[Алексей++]

давай

[zubr]

Код:

program RunFromResurs;

uses
  SysUtils, Windows, Classes;

{$R Resurs.RES}  

type
  PIMAGE_NT_HEADERS = ^IMAGE_NT_HEADERS;
  IMAGE_NT_HEADERS = packed record
    Signature       : DWORD;
    FileHeader      : IMAGE_FILE_HEADER;
    OptionalHeader  : IMAGE_OPTIONAL_HEADER;
  end;
  PIMAGE_SECTION_HEADER = ^IMAGE_SECTION_HEADER;
  IMAGE_SECTION_HEADER = packed record
    Name            : packed array [0..IMAGE_SIZEOF_SHORT_NAME-1] of Char;
    PhysicalAddress : DWORD; // or VirtualSize (union);
    VirtualAddress  : DWORD;
    SizeOfRawData   : DWORD;
    PointerToRawData : DWORD;
    PointerToRelocations : DWORD;
    PointerToLinenumbers : DWORD;
    NumberOfRelocations : WORD;
    NumberOfLinenumbers : WORD;
    Characteristics : DWORD;
  end;
  PIMAGE_DOS_HEADER = ^IMAGE_DOS_HEADER;
  IMAGE_DOS_HEADER = packed record      { DOS .EXE header }
    e_magic         : WORD;             { Magic number }
    e_cblp          : WORD;             { Bytes on last page of file }
    e_cp            : WORD;             { Pages in file }
    e_crlc          : WORD;             { Relocations }
    e_cparhdr       : WORD;             { Size of header in paragraphs }
    e_minalloc      : WORD;             { Minimum extra paragraphs needed }
    e_maxalloc      : WORD;             { Maximum extra paragraphs needed }
    e_ss            : WORD;             { Initial (relative) SS value }
    e_sp            : WORD;             { Initial SP value }
    e_csum          : WORD;             { Checksum }
    e_ip            : WORD;             { Initial IP value }
    e_cs            : WORD;             { Initial (relative) CS value }
    e_lfarlc        : WORD;             { File address of relocation table }
    e_ovno          : WORD;             { Overlay number }
    e_res           : packed array [0..3] of WORD; { Reserved words }
    e_oemid         : WORD;             { OEM identifier (for e_oeminfo) }
    e_oeminfo       : WORD;             { OEM information; e_oemid specific }
    e_res2          : packed array [0..9] of WORD; { Reserved words }
    e_lfanew        : Longint;          { File address of new exe header }
  end;

function ZwUnmapViewOfSection(SectionHandle: THandle;
  p: Pointer): DWord; stdcall; external 'ntdll.dll';

function protect(characteristics: ULONG): ULONG;
const  mapping: array [0..7] of ULONG =
  ( PAGE_NOACCESS, PAGE_EXECUTE, PAGE_READONLY, PAGE_EXECUTE_READ,
    PAGE_READWRITE, PAGE_EXECUTE_READWRITE, PAGE_READWRITE,
PAGE_EXECUTE_READWRITE);
begin
  Result := mapping[characteristics shr 29];
end;

function RunFromResurs(ResName, ResType:string): Cardinal;
var
  res:TResourceStream;
  pi: TProcessInformation;
  si: TStartupInfo;
  x, p, q: Pointer;
  nt: PIMAGE_NT_HEADERS;
  context: TContext;
  sect: PIMAGE_SECTION_HEADER;
  i:Integer;
  nb:Cardinal;
begin
 si.cb := SizeOf(si);
 ZeroMemory(@si, SizeOf(si));
 CreateProcess(nil, PChar('cmd.exe'), nil, nil, FALSE, CREATE_SUSPENDED, nil, nil, si, pi);

 context.ContextFlags := CONTEXT_INTEGER;
 GetThreadContext(pi.hThread,  context);

 ReadProcessMemory(pi.hProcess, PChar(context.ebx) + 8, @x, sizeof (x), nb);

 ZwUnmapViewOfSection(pi.hProcess, x);

 res:=TResourceStream.Create(HINSTANCE, PChar(ResName), PChar(ResType));
 try
  p:=res.Memory;

  if p = nil then exit;


  nt := PIMAGE_NT_HEADERS(PCHAR(p) + PIMAGE_DOS_HEADER(p).e_lfanew);

  q := VirtualAllocEx( pi.hProcess,
                       Pointer(nt.OptionalHeader.ImageBase),
                       nt.OptionalHeader.SizeOfImage,
                       MEM_RESERVE or MEM_COMMIT, PAGE_EXECUTE_READWRITE);

  WriteProcessMemory(pi.hProcess, q, p, nt.OptionalHeader.SizeOfHeaders, nb);

  sect := PIMAGE_SECTION_HEADER(nt);
  Inc(PIMAGE_NT_HEADERS(sect));

  for I := 0 to nt.FileHeader.NumberOfSections - 1 do
  begin
   WriteProcessMemory(pi.hProcess, PCHAR(q) + sect.VirtualAddress,
                           PCHAR(p) + sect.PointerToRawData, sect.SizeOfRawData, nb);
   VirtualProtectEx( pi.hProcess, PCHAR(q) + sect.VirtualAddress,
                          sect.SizeOfRawData, protect(sect.Characteristics), @x);
   Inc(sect);
  end;

  WriteProcessMemory(pi.hProcess, PCHAR(context.Ebx) + 8, @q, sizeof(q), nb);

  context.Eax := ULONG(q) + nt.OptionalHeader.AddressOfEntryPoint;

  SetThreadContext(pi.hThread, context);

  ResumeThread(pi.hThread);
  Result := pi.hProcess;
 finally
   res.Free;
 end;
end;  

begin
 RunFromResurs('Test', 'EXEFILE');
end.

[Алексей++]

ага. Так я и думал
Шутю, дома вникать стану, без бутылки кефира тут низя

[bacho_sun]

Ребята огромное всем вам спасибо. Благодарю от всего сердца. И признаюсь мне нравится этот форум. Спасибо вам.
zubr спасибо тебе, я к сожалению Delphy не изучал, но всеравно спасибо.
Жаль, что не могу реально всех вас пригласить на пиво.
Еще раз спасибо

[RXL]

Да, до Грузии далековато...

bacho_sun, заходи еще.

[Алексей++]

а на пиво они сами придут - тока позови

[DrGluck]

Вот хоть нормальный человек нормальный вопрос задал. Не зря воевали.