如何使用Delphi启动应用程序并获取它的句柄？

Question

我想从Delphi启动一个应用程序,并获取它的句柄,所以我可以将所述应用程序的主窗口嵌入到TFrame类型的框架中.到目前为止,我尝试过:

Function TFrmEmbeddedExe.StartNewApplication : Boolean;
var
  SEInfo: TShellExecuteInfo;
  ExitCode : DWORD;
begin

  FillChar(SEInfo, SizeOf(SEInfo), 0) ;
  SEInfo.cbSize := SizeOf(TShellExecuteInfo) ;
  with SEInfo do
  begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := self.Handle;
    lpFile := PChar(self.fexecuteFileName) ;//  Example could be 'C:\Windows\Notepad.exe'
    nShow := SW_SHOWNORMAL;//SW_HIDE;
  end;

  if ShellExecuteEx(@SEInfo) then
  begin
    sleep(1500);
    self.fAppWnd := FindWindow(nil, PChar(self.fWindowCaption)); //Example : 'Untitled - Notepad'
    if self.fAppWnd <> 0 then
    begin
      Windows.SetParent(self.fAppWnd, SEInfo.Wnd);
      ShowWindow(self.fAppWnd, SW_SHOWMAXIMIZED);
      result := true;
    end
    else
      result := false;

  end

  else
    result := false;
end ;

上面的代码实际上有效,但findWindow会找到我开始的应用程序的任何给定的实例.我想嵌入我Shellexecuted的确切实例.因此,如果记事本已经启动了几次,我就无法使用FindWindow获得正确的记事本.

我试过了:

Function TfrmEmbeddedExe.CreateProcessNewApplication : Boolean;
var
zAppName: array[0..512] of char;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
Res : DWORD;
DoWait : Boolean;
begin
  DoWait := False;
  StrPCopy(zAppName, self.fexecuteFileName);  //'C:\Windows\Notepad.exe'
  FillChar(StartupInfo, Sizeof(StartupInfo), #0);
  StartupInfo.cb := Sizeof(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_SHOWNORMAL;

  if CreateProcess (zAppName,
  nil, { pointer to command line string }
  nil, { pointer to process security attributes }
  nil, { pointer to thread security attributes }
  false, { handle inheritance flag }
  CREATE_NEW_CONSOLE or { creation flags }
  NORMAL_PRIORITY_CLASS,
  nil, { pointer to new environment block }
  nil, { pointer to current directory name }
  StartupInfo, { pointer to STARTUPINFO }
  ProcessInfo) then   { pointer to PROCESS_INF }
  begin
    if DoWait then  //just set it to false... so it will never enter here
    begin
      WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
      GetExitCodeProcess(ProcessInfo.hProcess, Res);
    end
    else
    begin
      self.fAppWnd := ProcessInfo.hProcess;

      Windows.SetParent(self.fAppWnd, self.Handle);
      ShowWindow(self.fAppWnd, SW_SHOWMAXIMIZED);
      CloseHandle(ProcessInfo.hProcess);
      CloseHandle(ProcessInfo.hThread);


    end;

    result := true;
  end
  else begin
    Result := false;
  end;
end;

请不要跑上面的代码!它会产生奇怪的结果,包括在所有正在运行的应用程序中的任何位置选择一个看似随机的窗口并嵌入它(甚至来自Windows开始菜单的菜单项......)

基本上我需要的是如何启动应用程序,并获取应用程序主窗口的句柄.

任何帮助都非常感谢

问候

Jens Fudge

Answer 1

这是您需要做的大致轮廓.我会把编码留给你:

1. 启动过程有两种ShellExecuteEx或CreateProcess.这将产生一个进程句柄.
2. 调用WaitForInputIdle进程句柄.这使进程有机会加载并启动其消息循环.
3. 传递进程句柄以GetProcessId获取进程ID.
4. 使用EnumWindows枚举顶级窗口.
5. 通过这些窗口中的每一个GetWindowThreadProcessId来检查您是否找到了目标进程的顶级窗口.
6. 一旦找到其进程ID与目标进程匹配的窗口,您就完成了!

完成后,不要忘记关闭进程句柄.