Delphi 通得进程ID获取主窗口句柄


本文整理自网络,侵删。

 只知道进程ID,获取主窗口句柄的方法如下:

通过EnumWindows枚举所有窗口
使用GetWindowThreadProcessID,通过窗口句柄获取进程ID
比便获取的进程ID与当前已知的进程ID,判断是否为需要的窗口

代码如下:

function GetHwndFromProcess(const hPID: THandle): THandle;

  type

    PEnumInfo = ^TEnumInfo;

    TEnumInfo = record

    ProcessID: DWORD;

    HWND: THandle;

  end;

 

  function EnumWindowsProc(Wnd: DWORD; var EI: TEnumInfo): Bool; stdcall;

  var

    PID: DWORD;

    h: THandle;

  begin

    Result := True;

    GetWindowThreadProcessID(Wnd, @PID);

    if PID = EI.ProcessID then

    begin

      h := GetWindowLong(Wnd, GWL_HWNDPARENT);

      if h = 0 then

      begin

        EI.HWND := Wnd;

        Result := False;

      end;

    end;

    if not Result then

      EI.HWND := WND;

  end;

 

  function FindMainWindow(PID: DWORD): DWORD;

  var

    EI: TEnumInfo;

  begin

    EI.ProcessID := PID;

    EI.HWND := 0;

    EnumWindows(@EnumWindowsProc, Integer(@EI));

    Result := EI.HWND;

  end;

  

begin

  if hPID <> 0 then

    Result := FindMainWindow(hPID)

  else

    Result:=0;

end;

相关阅读 >>

Delphi中对进程内存进行读写

Delphi 向windows窗口发送alt组合键的问题

Delphi中的copy,delete,pos和leftstr,rightstr的用法

Delphi 删除文件函数支持撤销删除

Delphi初级教程之Delphi断点调试

Delphi 禁止窗口移动

Delphi xe5 为android增加启动图片显示

汇编基础寄存器

Delphi 日期相关总结20190702完结篇

Delphi xe5 中tmemo控件的应用――for android

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...