如何得到由CreateProcess打开的外部应用程序的窗口句柄

Question

在线等

Answer 1

var
  FSI: TStartupInfo;
  FPI: TProcessInformation;
begin
  FillChar(FSI, SizeOf(TStartupInfo), 0);
  FSI.cb := SizeOf(TStartupInfo);
  FillChar(FPI, SizeOf(TProcessInformation), 0);
   if CreateProcess('c:\neteas\eas\Neteas.exe', nil, nil, nil, True, NORMAL_PRIORITY_CLASS, nil, nil, FSI, FPI) then
  begin
    Caption := Caption + Format(' - New process ID is %d', [FPI.hProcess]);
//进程句柄为FPI.hProcess
  end;
end;

Answer 2

兄台啊，我想的得到新窗口的句柄。
Caption := Caption + Format(' - New process ID is %d', [FPI.hProcess]);
此句只是改了一下母窗口的caption.