vb查看窗口句柄

WinAPI: FindWindow、FindWindowEx - 查找窗口

http://www.cnblogs.com/del/archive/2008/02/28/1085432.html

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