delphi下实现控制其它窗体中的控件[转]

======================================================
注：本文源代码点此下载
======================================================

首先申明:我是菜鸟,我只不过想把困绕了我很长时间的问题的解决方案发表出来,免得以后我又忘记,同时给还不知道这些小知识的同僚一些帮助。各位不要笑我的浅薄。同时为了表示我的低级,我会很罗嗦的讲一些基本的东西,这些都是我的理解,很不准确。

用我的方法来控制其他程序窗体上的窗口控件,必须先了解什么是回调函数。我的理解是这样的:回调函数写出来不是自己的程序去调用的,反而是让其他的东西去调用,比如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单步跟踪调试一下,看看回调函数是怎么被调用的。

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

其函数原形是:

function findwindow(lpclassname, lpwindowname: pchar): hwnd; stdcall;

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

lpwindowname:窗口标题.

调用方式举例:

var wndhwnd:hwnd;

wndhwnd:=findwindow(nil,'某窗口标题');

if wndhwnd

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

同样,首先要得到其他窗体上窗口控件的句柄.我们用这个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

程序清单如下:

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

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

sendmessage(hwnd,wm_settext,0,longint(pchar('哈哈!')));就可以给控件发送文本.其他还可以发送不同的消息可以做很多事情.

最后总结一下:在最后的例程中没有改变窗体控件的代码,可以向它发消息,这里自己可以把代码加在函数调用的后面,如上面的消息就是把句柄为hwnd的控件的text改为了哈哈!

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/