把其它程序嵌入到我的程序.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 32 行

function EnumWindowsProc(hwnd:HWND;lparam:lPARAM):boolean; stdcall;
var
  pid:^integer;
begin
  new(pid);
  GetWindowThreadProcessId(hwnd,pid);
  if pid^=lparam then
  begin
    result:=false;
    setparent(hwnd,form1.handle);
    SetWindowPos(hwnd, 0, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOZORDER);
  end
  else
    result:=true;
  dispose(pid);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  StartupInfo:TStartupInfo;
  ProcessInfo:TProcessInformation;
begin
  FillChar(StartupInfo,SizeOf(StartupInfo),#0);
  StartupInfo.cb:=SizeOf(StartupInfo);
  StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow:=sw_show;
  CreateProcess(nil,'calc.exe',nil,nil,false,Create_new_console or Normal_priority_class,nil,nil,StartupInfo,ProcessInfo);
  WaitForInputIdle(ProcessInfo.hProcess, 10000);
  EnumWindows(@EnumWindowsProc,ProcessInfo.dwProcessId);
 
end;