panel内嵌程序窗体

function RunAppInPanel(const AppFileName: string; ParentHandle: HWND; var WinHandle: HWND): Boolean;
var
  si: STARTUPINFO;
  pi: TProcessInformation;
begin
  Result := False;
 
  // 启动进程
  FillChar(si, SizeOf(si), );
  si.cb := SizeOf(si);
  si.wShowWindow := SW_SHOW;
  if not CreateProcess(nil, PChar(AppFileName), nil, nil, true,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, si, pi) then Exit;
 
  // 等待进程启动
  WaitForInputIdle(pi.hProcess, );
 
  // 取得进程的 Handle
  WinHandle := GetProcessWindow(pi.dwProcessID);
  if WinHandle >  then begin
    // 设定父窗体
    Windows.SetParent(WinHandle, ParentHandle);
 
    // 设定窗体位置
    SetWindowPos(WinHandle, , , , , , SWP_NOSIZE or SWP_NOZORDER);
 
    // 去掉标题栏
    SetWindowLong(WinHandle, GWL_STYLE, GetWindowLong(WinHandle, GWL_STYLE)
      and (not WS_CAPTION) and (not WS_BORDER) and (not WS_THICKFRAME));
 
    Result := True;
  end;
 
  // 释放 Handle
  CloseHandle(pi.hProcess);
  CloseHandle(pi.hThread);
end;
 
//var hWin: HWND = ;
//FormClose
//  if hWin >  then PostMessage(hWin, WM_CLOSE, , );
//FormResize
//  if hWin <>  then MoveWindow(hWin, , , panel1.ClientWidth, panel1.ClientHeight, True);
 
//if not RunAppInPanel(App, panel1.Handle, hWin) then ShowMessage('App not found');