把exe嵌入到自己的exe中。delphi xe3

下面是一个把exe程序嵌入到我们自己的exe中。开发环境 Delphi XE3 Version 17.0.4625.53395。OS环境WIN7 SP1，由于xe3版本的引用库发生变化。换成其他版本的需要做对应的修改。

unit insexe;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

  System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type

  TForm1 = class(TForm)

    pnl1: TPanel;

    btn1: TButton;

    dlgOpen1: TOpenDialog;

    procedure btn1Click(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

    FhProc: HWND;

  public

    { Public declarations }

  end;

  PProcessWindow = ^TProcessWindow;

  TProcessWindow = record

    TargetProcessID: Cardinal;

    FoundWindow: HWND;

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

function EnumWindowsProc(Wnd: HWND; ProcWndInfo: PProcessWindow): BOOL; stdcall;

var

  WndProcessID: Cardinal;

begin

  GetWindowThreadProcessId(Wnd, @WndProcessID);

  if WndProcessID = ProcWndInfo^.TargetProcessID then

  begin

    ProcWndInfo^.FoundWindow := Wnd;

    Result := False; // stop enumerating since a window found.

  end

  else

    Result := True; // Keep searching

end;

function GetProcessWindow(TargetProcessID: Cardinal): HWND;

var

  ProcWndInfo: TProcessWindow;

begin

  ProcWndInfo.TargetProcessID := TargetProcessID;

  ProcWndInfo.FoundWindow := ;

  EnumWindows(@EnumWindowsProc, Integer(@ProcWndInfo));

  Result := ProcWndInfo.FoundWindow;

end;

procedure TForm1.btn1Click(Sender: TObject);

var

  si: STARTUPINFO;

  pi: TProcessInformation;

  bRet: Boolean;

begin

  if not dlgOpen1.Execute then

    Exit;

  FillChar(si, SizeOf(si), );

  si.cb := SizeOf(si);

  si.dwFlags := STARTF_USESHOWWINDOW;

  // MUST, otherwise, wShowWindow won't work.

  si.wShowWindow := SW_HIDE;

  // Hide the process Windows, otherwise could be trouble.

  bRet := CreateProcess(nil, PChar(dlgOpen1.FileName), nil, nil, True,

    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, si, pi);

  if not bRet then

    Exit;

  // Wait until child process exits.

  WaitForSingleObject(pi.hProcess, ); // minor delay

  FhProc := GetProcessWindow(pi.dwProcessID);

  if FhProc >  then

  begin

    Winapi.Windows.SetParent(FhProc, pnl1.Handle);

    SetWindowPos(FhProc, , , , , , SWP_NOSIZE or SWP_NOZORDER);

    ShowWindow(FhProc, SW_SHOW);

  end;

  // Clear up

  CloseHandle(pi.hProcess);

  CloseHandle(pi.hThread);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  if FhProc >  then

    PostMessage(FhProc, WM_CLOSE, , );

end;

end.

参考：http://hi.baidu.com/wang_yu_136/item/9c6d0ad877a4fa19d90e44fc