如何控制其他程序窗体上的窗口控件
点击次数：50 次 发布日期：2008-11-09 08:39:12 作者：源代码网
源代码网推荐 源代码网推荐 用我的方法来控制其他程序窗体上的窗口控件，必须先了解什么是回调函数。我的理解是这样的： 源代码网推荐 源代码网推荐 回调函数写出来不是自己的程序去调用的，反而是让其他的东西去调用，比如windows操作系统，比如其他的程序等等之类的。但是什么时候被调用却不知道了。回调函数一般是按照调用者的要求定义好参数和返回值的类型，你向调用者提供你的回调函数的入口地址，然后调用者有什么事件发生的时候就可以随时按照你提供的地址调用这个函数通知你，并按照预先规定好的形式传递参数。所以很多人打比方，说回调函数还真有点像您随身带的BP机：告诉别人号码，在它有事情时Call您！ 源代码网推荐 源代码网推荐 所以一个回调函数写出来之后，一定有个注册的动作，就是告诉调用者，你怎么样找到我写的函数。某些Windows API 函数会要求以回调函数地址作为其参数之一，例如SetTimer 、LineDDA 、EnumObjects，以及我们下面要用到的EnumWindows。 源代码网推荐 源代码网推荐 在Delphi里声明一个回调函数的格式很简单，例如： 源代码网推荐 源代码网推荐 function EnumWindowsProc(AhWnd:LongInt;lParam:LongInt):boolean;stdcall; 源代码网推荐 源代码网推荐 源代码网推荐 首先是函数名称可以随便乱取，但函数参数的类型一般不得乱来，其顺序，数据类型等都有规定的，因为这些都是让其他程序调用的，他们已经规定好了的，但参数名称可以随便乱叫。注意后面一定要带上“stdcall”， 源代码网推荐 源代码网推荐 stdcall是标准调用,也就是说采用标准windows参数传递方式来调用函数。 源代码网推荐 源代码网推荐 编写函数体就很简单了，利用传递过来的参数就可以了，只要记住，这些参数是别人送给你的，你只要知道这些参数代表了什么意思。 源代码网推荐 源代码网推荐 再看个向调用者注册回调函数入口地址的函数。 源代码网推荐 function EnumWindows(lpEnumFunc: TFNWndEnumProc; lParam: LPARAM): BOOL; stdcall; 源代码网推荐 源代码网推荐 源代码网推荐 TFNWndEnumProc其实就是指针类型。其中的lpEnumFunc就是回调函数的入口地址了。 源代码网推荐 源代码网推荐 下面是调用EnumWindows的格式： 源代码网推荐 EnumWindows(@EnumWindowsProc,0); 源代码网推荐 源代码网推荐 源代码网推荐 通过向系统注册回调函数的入口地址，系统就能在需要的时候，调用回调函数，传递参数给它，也许这些参数就是我们想要的。 源代码网推荐 源代码网推荐 EnumWindows函数的功能是：枚举屏幕上所有程序中的顶层窗口，将窗口句柄以参数的形式传递给回调函数。找到一个窗口，就调用一次回调函数。枚举结束的条件是：要么枚举完所有的窗口，要么回调函数返回False。 源代码网推荐 源代码网推荐 lParam: LPARAM参数是程序定义的值，这个值被传递到回调函数。 源代码网推荐 源代码网推荐 回过头来再看一下EnumWindowsProc： 源代码网推荐 源代码网推荐 function EnumWindowsProc(AhWnd:LongInt;lParam:LongInt):boolean;stdcall; 源代码网推荐 源代码网推荐 当系统找到了一个窗口后，就开始调用这个回调函数，将窗口的句柄作为第一个参数传递过来，将在EnumWindows中lParam: LPARAM这个程序定义的值作为第二个参数传递过来。 源代码网推荐 源代码网推荐 所以我们可以在EnumWindowsProc函数中利用传递过来的两个参数来做某些处理了。 源代码网推荐 源代码网推荐 下面我们新建一个程序列举系统中所有程序的顶层窗口，我们要得到窗口的标题，要得到窗口类名称。 源代码网推荐 源代码网推荐 得到窗口标题用： 源代码网推荐 源代码网推荐 function GetWindowText(hWnd: HWND; lpString: PChar; nMaxCount: Integer): Integer; stdcall; 源代码网推荐 源代码网推荐 源代码网推荐 该函数功能是将窗口句柄为hWnd的窗口的标题拷入到一个缓冲区lpString。nMaxCount是拷入缓冲区内的最大的字符数。 源代码网推荐 源代码网推荐 要得到窗口标题还可以发送消息：WM_GETTEXT，其实GetWindowText就是发送WM_GETTEXT消息的。 源代码网推荐 源代码网推荐 要得到窗口类名称用： 源代码网推荐 源代码网推荐 function GetClassName(hWnd: HWND; lpClassName: PChar; nMaxCount: Integer): Integer; stdcall; 源代码网推荐 源代码网推荐 源代码网推荐 其参数意义和上面的函数差不多。不详细解释了。 源代码网推荐 源代码网推荐 我们先编写回调函数：EnumWindowsProc。现在告诉自己，我们已经有了两个参数的值了。这两个参数是系统给我们的. 源代码网推荐 源代码网推荐 为了显示窗口标题和类名，我们用一个TMemo控件。 源代码网推荐 源代码网推荐 先在interface部分声明函数。 源代码网推荐 源代码网推荐 function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean;stdcall; 源代码网推荐 源代码网推荐 源代码网推荐 注意我将第二个参数改了，不要紧，到时候调用的时候注意看。 源代码网推荐 源代码网推荐 然后在implementation部分定义函数： 源代码网推荐 源代码网推荐 function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean; 源代码网推荐 var 源代码网推荐 lpszClassName,lpszWindowText:array[0..254] of char; //定义两个缓冲区。 源代码网推荐 begin 源代码网推荐 GetWindowText(AhWnd,lpszWindowText,254); //得到窗口标题 源代码网推荐 GetClassName(AhWnd,lpszClassName,254); //得到窗口类名。 源代码网推荐 Aform.memo1.lines.add(StrPas(lpszWindowText)); 源代码网推荐 Aform.memo1.lines.add(StrPas(lpszClassName)); 源代码网推荐 Aform.memo1.lines.add("--------------------"); 源代码网推荐 Result:=True; 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 接着需要做的就是调用EnumWindows函数，注册回调函数入口地址，让系统调用回调函数，列举窗口了。所以再添加一个TButton: btn_listwindow 源代码网推荐 源代码网推荐 procedure TForm1.btn_listwindowClick(Sender: TObject); 源代码网推荐 begin 源代码网推荐 EnumWindows(@EnumWindowsProc,LongInt(self)); 源代码网推荐 end; 源代码网推荐 源代码网推荐 源代码网推荐 程序清单如下： 源代码网推荐 源代码网推荐 unit Unit1; 源代码网推荐 源代码网推荐 interface 源代码网推荐 源代码网推荐 uses 源代码网推荐 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 源代码网推荐 Dialogs, StdCtrls; 源代码网推荐 源代码网推荐 type 源代码网推荐 TForm1 = class(TForm) 源代码网推荐 Memo1: TMemo; 源代码网推荐 btn_listwindow: TButton; 源代码网推荐 procedure btn_listwindowClick(Sender: TObject); 源代码网推荐 private 源代码网推荐 { Private declarations } 源代码网推荐 public 源代码网推荐 { Public declarations } 源代码网推荐 end; 源代码网推荐 源代码网推荐 var 源代码网推荐 Form1: TForm1; 源代码网推荐 源代码网推荐 function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean;stdcall; 源代码网推荐 源代码网推荐 implementation 源代码网推荐 {$R *.dfm} 源代码网推荐 function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean; 源代码网推荐 var 源代码网推荐 lpszClassName,lpszWindowText:array[0..254] of char; 源代码网推荐 begin 源代码网推荐 GetWindowText(AhWnd,lpszWindowText,254); 源代码网推荐 GetClassName(AhWnd,lpszClassName,254); 源代码网推荐 Aform.memo1.lines.add(StrPas(lpszWindowText)); 源代码网推荐 Aform.memo1.lines.add(StrPas(lpszClassName)); 源代码网推荐 Aform.memo1.lines.add("--------------------"); 源代码网推荐 Result:=True; 源代码网推荐 end; 源代码网推荐 源代码网推荐 procedure TForm1.btn_listwindowClick(Sender: TObject); 源代码网推荐 begin 源代码网推荐 EnumWindows(@EnumWindowsProc,LongInt(self)); 源代码网推荐 end; 源代码网推荐 源代码网推荐 end. 源代码网推荐 源代码网推荐 源代码网推荐 F9，运行，看看结果。最好是F7单步跟踪调试一下，看看回调函数是怎么被调用的。 源代码网推荐 源代码网供稿. |
