怎样控制其他程序窗体上的窗口控件

原创 2012年11月29日 12:52:56

作者:摘自多个网站

用我的方法来控制其他程序窗体上的窗口控件,必须先了解什么是回调函数。我的理解是这样的:

回调函数写出来不是自己的程序去调用的,反而是让其他的东西去调用,比如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_listwindowprocedure 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单步跟踪调试一下,看看回调函数是怎么被调用的。

有了回调函数的概念及上面的例子,我们可以继续了。其实想要找到一个标题已知的窗口句柄,用一个API函数就可以了:FindWindow.

其函数原形是:

function FindWindow(lpClassName, lpWindowName: PChar): HWND; stdcall;

lpClassName:窗口类名.如果只知道标题,可以为空.窗口类名可以用很多工具获得.如winsignt32.
lpWindowName:窗口标题.

调用方式举例:

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

有了这个窗口句柄,就离我们的初始目的不远了:控制其他窗体上的窗口控件.

同样,首先要得到其他窗体上窗口控件的句柄.我们用这个API函数:EnumChildWindows.

其函数原形是:
function EnumChildWindows(hWndParent: HWND; lpEnumFunc: TFNWndEnumProc;
  lParam: LPARAM): BOOL; stdcall;

这个函数和EnumWindow函数很有些想象.其作用也很相似.它的功能就是列举窗口句柄为hWndParent的窗体上所有的窗口控件的句柄.同样也是以回调函数参数的形式给出的.

我们再举一个实际的例子,来说明这个函数的用法.程序的功能是让用户输入一个窗口标题,然后调用FindWindow函数找到此窗口句柄.通过这个句柄,我们在一个Memo里显示该窗口上所有的窗口控件.

同样先编写回调函数.
function  EnumChildWndProc(AhWnd:LongInt;
  AlParam:lParam):boolean;stdcall;
var
  WndClassName: array[0..254] of Char;
  WndCaption: array[0..254] of Char;
begin
  GetClassName(AhWnd,wndClassName,254);
  GetWindowText(aHwnd,WndCaption,254);
  with form1.memo1 do
  begin
    lines.add( string(wndClassName));
    lines.add( string(wndCaption));
    lines.add('-------');
  end;
  result:=true;
end;


然后在一事件里调用EnumChildWindows函数.
procedure TForm1.Button1Click(Sender: TObject);
var
  hWnd:LongInt;
begin
  memo1.Lines.Clear;
  Memo1.Lines.Add(Edit1.Text+' 有如下控件类名称');
  hWnd:=FindWindow(nil,pchar(Edit1.Text));
  if hWnd<>0 then
  begin
    EnumChildWindows(hWnd,@EnumChildWndProc,0);
  end
  else  MessageBox(self.handle,'没找到该窗口句柄','提示',0);
end;

程序清单如下:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;  file://用来显示找到的控件
    Label1: TLabel; 
    Edit1: TEdit;  file://输入标题.
    Button1: TButton; 
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  function  EnumChildWndProc(AhWnd:LongInt;
    AlParam:lParam):boolean;stdcall;

implementation


{$R *.dfm}
function  EnumChildWndProc(AhWnd:LongInt;
  AlParam:lParam):boolean;stdcall;
var
  WndClassName: array[0..254] of Char;
  WndCaption: array[0..254] of Char;
begin
  GetClassName(AhWnd,wndClassName,254);
  GetWindowText(aHwnd,WndCaption,254);
  with form1.memo1 do
  begin
    lines.add( string(wndClassName));
    lines.add( string(wndCaption));
    lines.add('-------');
  end;
  result:=true;
end;


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

end.


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

SendMessage(hWnd,WM_SETTEXT,0,LongInt(Pchar('sdafdsf')));就可以给控件发送文本.其他还可以发送不同的消息可以做很多事情.

但是,有很大一个问题:假设一个窗体上有很多相同的控件,并且根本没办法区分他们,即使我们能找到所有的控件句柄,我们又不能区分到底哪个是我们想要的,同样是干着急.

 要得到其他程序上的控件句柄,首先给一个假定:其他程序的UI是不会变化的,比如,我们打开QQ,那么只要不升级,那么上午打开QQ,和下午打开QQ,其上的菜单,按纽之类的不会突然没有或者突然增加了。如果有变化,我这个方法不适用。

得到其他程序上的控件句柄,简单来说,基本流程是这样的。首先运行要控制的窗口程序。 然后得到主窗口的句柄,上已经搞定。

然后有主窗口句柄得到该窗口上所有的控件句柄,中已经搞定。

有了上两步的基础,我们可以在正式编写程序控制其他程序窗口控件之前,再写一个辅助工具,用这个工具来帮助我们来确定我们要控制的控件句柄。方法如下:

通过 function EnumChildWindows(hWndParent: HWND; lpEnumFunc: TFNWndEnumProc; lParam: LPARAM): BOOL; stdcall;  和 function EnumChildWndProc(AhWnd:LongInt; AlParam:lParam):boolean;stdcall;

在EnumChildWndProc我们得到窗口中所有的控件句柄,每得到一个句柄,我们给这个控件发送一个SetWindowText消息,写上一个序号,从0开始,一直写完。 然后呢?我们看看我们想控制的程序的窗口,控件上的文字是不是变成了数字?对于不能显示文字的,我们就采用其他方法,只要能在这个过程中能找到控件的序号就可以了。 现在我们知道了需要控制的控件在原主窗口中被列举时的序号了。现在知道该怎么做了吧? 对,现在正式写控制程序了。同样的,我们在function EnumChildWndProc(AhWnd:LongInt; AlParam:lParam):boolean;stdcall; 中用一个计数器,得到当前句柄序号,与需要控制的句柄序号对比,就确定下来需要控制的控件句柄了。 其他就好办了。

如何控制其他程序窗体上的窗口控件(下)

实在不好意思,写了上,中后,由于一直忙于项目,就没有完成最关键的工作。导致很多网友给我发邮件询问答案。同时对某些人发表的评论感觉到很伤心,本来就申明了文章写的很浅薄无知,很罗里八嗦的,并且将自己的心得...
  • VBEND
  • VBEND
  • 2005年01月11日 10:23
  • 1646

Delphi调用一个外部程序时,如何把外部程序的窗体放在主程序窗体的Panel上?

uses shellapi; ... procedure TForm1.Button2Click(Sender: TObject); var vh: HWND; begin ShellEx...
  • xieyunc
  • xieyunc
  • 2013年12月16日 21:35
  • 2235

如何控制其他程序窗体上的窗口控件:上

如何控制其他程序窗体上的窗口控件:上首先申明:我是菜鸟,我只不过想把困绕了我很长时间的问题的解决方案发表出来,免得以后我又忘记,同时给还不知道这些小知识的同僚一些帮助。各位不要笑我的浅薄。同时为了表示...
  • w8u
  • w8u
  • 2003年01月27日 10:10
  • 2079

如何控制其他程序窗体上的窗口控件(上)

如何控制其他程序窗体上的窗口控件:上首先申明:我是菜鸟,我只不过想把困绕了我很长时间的问题的解决方案发表出来,免得以后我又忘记,同时给还不知道这些小知识的同僚一些帮助。各位不要笑我的浅薄。同时为了表示...
  • VBEND
  • VBEND
  • 2005年01月11日 10:16
  • 1531

如何在一个窗体中调用另一个窗体的控件或方法

要把Form1中的控间改成public属性 具体实现过程请参看一下代码(在form2的textbox1中输入然后在form1中的label1中显示textbox中的内容 //form1代码...
  • shouhouxiaomuwu
  • shouhouxiaomuwu
  • 2013年10月23日 19:38
  • 795

C#隐藏其他程序窗口以及添加最小化/最大化按钮

博客处女作,写一篇关于C#隐藏第三方应用程序窗口以及给窗口添加最小化/最大化的实现方法: 引入命名空间: using System.Runtime.InteropServices; 导入库: ...
  • yj5894878
  • yj5894878
  • 2014年02月12日 12:03
  • 2235

如何控制其他程序窗体上的窗口控件(中)

其实想要找到一个标题已知的窗口句柄,用一个API函数就可以了:FindWindow.其函数原形是:function FindWindow(lpClassName, lpWindowName: PCha...
  • VBEND
  • VBEND
  • 2005年01月11日 10:06
  • 1592

如何控制其他程序窗体上的窗口控件

控制其他程序窗体上的窗口控件,必须先了解什么是回调函数。我的理解是这样的: 回调函数写出来不是自己的程序去调用的,反而是让其他的东西去调用,比如windows操作系统,比如其他的程序等等之类的。但是什...
  • thinkray
  • thinkray
  • 2005年03月25日 11:34
  • 512

如何控制其他程序窗体上的窗口控件

 用我的方法来控制其他程序窗体上的窗口控件,必须先了解什么是回调函数。我的理解是这样的: 回调函数写出来不是自己的程序去调用的,反而是让其他的东西去调用,比如windows操作系统,比如其他的程序等等...
  • iseekcode
  • iseekcode
  • 2009年10月28日 22:12
  • 782

C#调用其他程序,比如控制别的程序上的按钮

[DllImport ( "user32.dll", EntryPoint = "FindWindow", SetLastError = true )] private static ...
  • config_man
  • config_man
  • 2012年04月19日 16:50
  • 9290
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:怎样控制其他程序窗体上的窗口控件
举报原因:
原因补充:

(最多只允许输入30个字)