为指定的父窗口枚举子窗口、按钮，以控制其操作。

为指定的父窗口枚举子窗口、按钮

 

　　很早就写过类似spy++和查看密码窗口的东西，一直想给这个小东西再加点特别的。前段时间对软件安装注册发生了兴趣，有些软件如果你不输入正确注册码，那该死的“下一步”按钮就一直disable。这次我就让spy++彻底spy到底，把那个注册用的按钮置亮，让我轻松进入“下一步”，呵呵...。
　　我的想法是光标移到指定的窗口上后，探测这个窗口上到底有多少按钮，如果有，就将它们都Enable。在这里我不想讨论怎样具体实现这个功能，但你要知道的是想得到这些被disable窗口（按钮）的句柄是根本无法通过WindowFromPoint这个API函数得到的，GetWindow也不要妄想了。顺手查了下MSDN，看到EnumChildWindows可是个好东西，可以枚举一个父窗口的所有子窗口：

1. BOOL EnumChildWindows(
2.   HWND hWndParent,         // handle to parent window // 父窗口句柄
3.   WNDENUMPROC lpEnumFunc,  // callback function // 回调函数的地址
4.   LPARAM lParam            // application-defined value // 你自已定义的参数
5. );

　　就这么简单，让我们再定义一个回调函数，像下面这样：

1. BOOL CALLBACK EnumChildProc(
2.   HWND hwnd,      // handle to child window
3.   LPARAM lParam   // application-defined value
4. );

　　注意：这个回调函数要么是类的静态函数，要么就是一个全局的函数。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
　　在调用EnumChildWindows 这个函数时，直到调用到最个一个子窗口被枚举或回调函数返回一个false，否则将一直枚举下去。有了上面的知识，我想你应该知道怎么做了。有了回调函数的概念及上面的例子,我们可以继续了。其实想要找到一个标题已知的窗口句柄,用一个API函数就可以了:FindWindow.其函数原形是:

1. function FindWindow(lpClassName, lpWindowName: PChar): HWND; stdcall;
2. lpClassName:窗口类名.如果只知道标题,可以为空.窗口类名可以用很多工具获得.如winsignt32.
   lpWindowName:窗口标题.

调用方式举例:

1. var wndhwnd:HWND;
2. wndhwnd:=FindWindow(nil,'某窗口标题');
3. if wndhwnd<>0 then  file://找到此窗口句柄.
4. begin
5.   xxxxx
6. end
7. else begin
8.   MessageBox(self.handle,'没找到该窗口句柄','提示',0);
9. end;

　　有了这个窗口句柄,就离我们的初始目的不远了:控制其他窗体上的窗口控件.同样,首先要得到其他窗体上窗口控件的句柄.我们用这个API函数:EnumChildWindows.其函数原形是:

1. function EnumChildWindows(hWndParent: HWND; 
2.     lpEnumFunc: TFNWndEnumProc;
3.     lParam: LPARAM): BOOL; stdcall;

　　这个函数和EnumWindow函数很有些想象.其作用也很相似.它的功能就是列举窗口句柄为hWndParent的窗体上所有的窗口控件的句柄.同样也是以回调函数参数的形式给出的.　我们再举一个实际的例子,来说明这个函数的用法.程序的功能是让用户输入一个窗口标题,然后调用FindWindow函数找到此窗口句柄.通过这个句柄,我们在一个Memo里显示该窗口上所有的窗口控件．同样先编写回调函数．

1. function  EnumChildWndProc(AhWnd:LongInt;
2.   AlParam:lParam):boolean;stdcall;
3. var
4.   WndClassName: array[0..254] of Char;
5.   WndCaption: array[0..254] of Char;
6. begin
7.   GetClassName(AhWnd,wndClassName,254);
8.   GetWindowText(aHwnd,WndCaption,254);
9.   with form1.memo1 do
10.   begin
11.     lines.add( string(wndClassName));
12.     lines.add( string(wndCaption));
13.     lines.add('-------');
14.   end;
15.   result:=true;
16. end;

然后在一事件里调用EnumChildWindows函数．

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   hWnd:LongInt;
4. begin
5.   memo1.Lines.Clear;
6.   Memo1.Lines.Add(Edit1.Text+' 有如下控件类名称');
7.   hWnd:=FindWindow(nil,pchar(Edit1.Text));
8.   if hWnd<>0 then
9.   begin
10.     EnumChildWindows(hWnd,@EnumChildWndProc,0);
11.   end
12.   else  MessageBox(self.handle,'没找到该窗口句柄','提示',0);
13. end;

程序清单如下：

1. unit Unit1;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, StdCtrls;
9. type
10.   TForm1 = class(TForm)
11.     Memo1: TMemo;  //用来显示找到的控件
12.     Label1: TLabel;　
13.     Edit1: TEdit;　　//输入标题.
14.     Button1: TButton;  
15.     procedure Button1Click(Sender: TObject);
16.   private
17.     { Private declarations }
18.   public
19.     { Public declarations }
20.   end;
22. var
23.   Form1: TForm1;
25.   function  EnumChildWndProc(AhWnd:LongInt;
26.     AlParam:lParam):boolean;stdcall;
28. implementation
30. {$R *.dfm}
31. function  EnumChildWndProc(AhWnd:LongInt;
32.   AlParam:lParam):boolean;stdcall;
33. var
34.   WndClassName: array[0..254] of Char;
35.   WndCaption: array[0..254] of Char;
36. begin
37.   GetClassName(AhWnd,wndClassName,254);
38.   GetWindowText(aHwnd,WndCaption,254);
39.   with form1.memo1 do
40.   begin
41.     lines.add( string(wndClassName));
42.     lines.add( string(wndCaption));
43.     lines.add('-------');
44.   end;
45.   result:=true;
46. end;
48. procedure TForm1.Button1Click(Sender: TObject);
49. var
50.   hWnd:LongInt;
51. begin
52.   memo1.Lines.Clear;
53.   Memo1.Lines.Add(Edit1.Text+' 有如下控件类名称');
54.   hWnd:=FindWindow(nil,pchar(Edit1.Text));
55.   if hWnd<>0 then
56.   begin
57.     EnumChildWindows(hWnd,@EnumChildWndProc,0);
58.   end
59.   else  MessageBox(self.handle,'没找到该窗口句柄','提示',0);
60. end;
61. end.

　　有了控件句柄,我们当然就可以随心所欲了.比如:

1. SendMessage(hWnd,WM_SETTEXT,0,LongInt(Pchar('sdafdsf')));

　　就可以给控件发送文本.其他还可以发送不同的消息可以做很多事情.但是,有很大一个问题:假设一个窗体上有很多相同的控件,并且根本没办法区分他们,即使我们能找到所有的控件句柄,我们又不能区分到底哪个是我们想要的,同样是干着急.我想了很长时间,后来在大富翁里找到了答案,只要用到一个小技巧,就可以解决了.

Trackback: http://tb.blog.youkuaiyun.com/TrackBack.aspx?PostId=588250