vb查看窗口句柄

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;
   
   

VB查找子窗口句柄代码  

2010-10-21 15:55:29|  分类: 程序编程|字号 订阅

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long  '找窗口列表中第一个符合指定条件的窗口

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long  '在窗口列表中寻找与指定条件相符的第一个子窗口

'FindWindowEx函数一般跟 FindWindow 一起使用,先用 FindWindow 查找程序父窗体句柄,在根据找到的父窗体句柄用FindWindowEx查找子窗体句柄。

Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long  '在指定的窗口里允许或禁止所有鼠标及键盘输入

Private Sub Command1_Click()  Dim WindowHandle As Long, ChildWindowHandle As Long     '用于储存获取的句柄 WindowHandle = FindWindow(vbNullString, "无标题 - 记事本")     If WindowHandle Then      '如果获取句柄成功  ChildWindowHandle = FindWindowEx(WindowHandle, 0, "Edit", vbNullString)  If ChildWindowHandle Then '如果成功获取子句柄  EnableWindow ChildWindowHandle, False '禁用子窗口  Else  MsgBox "无法获取子窗口"  End If  End If  End Sub

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值