delphi GetWindowHandle


本文整理自网络,侵删。

 
function GetWindowHandle(ProcessId: Cardinal): THandle;
var
  hFound: THandle;

function EnumWindowsProcMy(_hwnd: HWND; ProcessId: Cardinal): BOOL; stdcall;
var
  dwPid: Cardinal;
begin
  GetWindowThreadProcessId(_hwnd, @dwPid);

  if ProcessId = dwPid then
  begin
    hFound := _hwnd;
    Result := False;
  end
  else
    Result := True;
end;

begin
  EnumWindows(@EnumWindowsProcMy, LPARAM(ProcessId));
  Result := hFound;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Caption:=inttostr(GetWindowHandle(2888));
end;

相关阅读 >>

Delphi里formatfloat的用法

Delphi中的unicode转换

Delphi中查找进程及强行结束进程的方法

Delphi 递归搜索文件夹子目录

Delphi vcl 在trichedit控件中设置wordwrap属性后无法自动换行的问题

Delphi fmx 获取系统版本 android ios通用

Delphi中quotedstr介绍及使用

Delphi idhttp超时重定向

Delphi utf8处理单元

Delphi中限制鼠标的移动区域

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



打赏

取消

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

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

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

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

评论

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