CreateProcess并获取句柄

Question

我正在使用CreateProcess API将RealVNC与我的exe集成...我只需要为创建的vnc客户端处理句柄,但到目前为止我还没有成功.代码非常简单:

procedure TForm1.VncAuth;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: string;
  title: string;
  ProcHandle: THandle;
begin
  FillChar(StartInfo,SizeOf(TStartupInfo),#0);
  FillChar(ProcInfo,SizeOf(TProcessInformation),#0);
  StartInfo.cb := SizeOf(TStartupInfo);
  CmdLine:= 'vnc.exe';
  UniqueString(CmdLine);
  CreateProcess(NIL ,PChar(CmdLine), NIL, NIL, False, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS
                                  , NIL, NIL, StartInfo, ProcInfo);
  ProcHandle:= ProcInfo.hProcess;
  GetWindowText(ProcHandle, PChar(title), 255);
  ShowMessage(title);
end;

标题var中没有返回任何内容... GetWindowText函数只是一个测试,看看我是否有正确的句柄,如果是,我应该看到vnc客户端标题是正确的？谢谢!

Answer 1

窗口句柄和处理句柄不是一回事.因为GetWindowText你需要一个窗口把手.

1. 创建进程调用后WaitForInputIdle,允许进程启动并创建其主窗口.
2. 调用EnumWindows枚举顶级窗口.
3. 对于每个顶级窗口,调用GetWindowThreadProcessId以查找创建该窗口的进程的进程ID.您创建的进程的进程ID是ProcInfo.dwProcessId.
4. 当您找到一个进程ID与您刚创建的进程ID相匹配的窗口时,该窗口就是您的家伙!