WinAPI: FindWindow、FindWindowEx - 查找窗口
WinAPI: FindWindow、FindWindowEx - 查找窗口
涂孟超 发表于3年前
WinAPI: FindWindow、FindWindowEx - 查找窗口
  • 发表于 3年前
  • 阅读 21
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 技术升级10大核心产品年终让利>>>   

FindWindow(
  lpClassName,        {窗口的类名}
  lpWindowName: PChar {窗口的标题}
): HWND;              {返回窗口的句柄; 失败返回 0}

//FindWindowEx 比 FindWindow 多出两个句柄参数:
FindWindowEx(
  Parent: HWND;     {要查找子窗口的父窗口句柄}
  Child: HWND;      {子窗口句柄}
  ClassName: PChar; {}
  WindowName: PChar {}
): HWND;
{
如果 Parent 是 0, 则函数以桌面窗口为父窗口, 查找桌面窗口的所有子窗口;
如果  是 HWND_MESSAGE, 函数仅查找所有消息窗口;
子窗口必须是 Parent 窗口的直接子窗口;
如果 Child 是 0, 查找从 Parent 的第一个子窗口开始;
如果 Parent 和 Child 同时是 0, 则函数查找所有的顶层窗口及消息窗口.
}

 
 
 
 
 

 

 

  
//测试1: 试着找找新建程序主窗口的句柄 var h: HWND; begin {现在我们知道窗口的标题是: Form1、窗口的类名是: TForm1} h := FindWindow('TForm1', 'Form1'); ShowMessage(IntToStr(h)); {656180; 这是随机, 每次启动窗口肯定不一样} {假如不知道类名} h := FindWindow(nil, 'Form1'); ShowMessage(IntToStr(h)); {656180} {假如不知道标题名} h := FindWindow('TForm1', nil); ShowMessage(IntToStr(h)); {656180} {其实这个窗口的句柄不就是 Self.Handle 吗} ShowMessage(IntToStr(Handle)); {656180} end;
//测试2: 找计算器窗口的句柄(先打开计算器) var h: HWND; begin {如果不是简体中文系统, 这样可能不灵} h := FindWindow(nil, '计算器'); ShowMessage(IntToStr(h)); {1508334} {最好这样, 但你得提前知道计算器窗口的类名是: SciCalc} h := FindWindow('SciCalc', nil); ShowMessage(IntToStr(h)); {1508334} end;
共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: