delphi有关获取其他程序的窗口及对窗口内控件的操作

1.获取当前所有窗口

procedure TForm1.Button1Click(Sender: TObject);

var

szText: array[0..254] of char;

hCurrentWindow :hwnd;

begin

hCurrentWindow := GetWindow(Handle,GW_HWNDFIRST);

while hCurrentWindow <> 0 do

begin

if GetWindowText(hCurrentWindow ,@szText,255) > 0 then

memo1.lines.Add(StrPas(@szText));

hCurrentWindow := GetWindow(hCurrentWindow,GW_HWNDNEXT);

end;

end;

2.获取某一指定窗口

procedure TForm1.Button1Click(Sender: TObject);

var

szText: array[0..254] of char;

hCurrentWindow :hwnd;

begin

hCurrentWindow := GetWindow(Handle,GW_HWNDFIRST);

while hCurrentWindow <> 0 do

begin

if GetWindowText(hCurrentWindow ,@szText,255) > 0 then

if pos('RTX 会话', StrPas(@szText))<>0 then //这里指定某一窗口，可能有多个

memo1.lines.Add(StrPas(@szText));

hCurrentWindow := GetWindow(hCurrentWindow,GW_HWNDNEXT);

end;

end;

3.获取某一窗口内的所有控件及其内容

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

memo1: TMemo;

procedure Button1Click(Sender: TObject);

procedure get_actrlh(h:hwnd);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

hi:integer;

implementation

{$R *.dfm}

function gettext(h:hwnd):string;

var name:string;

txtlen:integer;

begin

TxtLen:=sendmessage(h ,wm_gettextlength,0,0)+1;

setlength(name,TxtLen);

sendmessage(h ,wm_gettext,txtlen,LongInt(@name[1]));

result:=name;

end;

procedure tform1.get_actrlh(h:hwnd);

var

s: Array[0..255] of char;

begin

h:=GetWindow(h,GW_child);

while h>0 do

begin

GetClassName(h, s, 256);

begin

memo1.lines.Add(inttostr(hi)+':'+s+':'+trim(gettext(h)) );

end ;

hi:=hi+1;

get_actrlh(h);

h:=GetWindow(h,GW_HWNDNEXT);

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

szText: array[0..254] of char;

hCurrentWindow :hwnd;

begin

hCurrentWindow := GetWindow(Handle,GW_HWNDFIRST);

while hCurrentWindow <> 0 do

begin

if GetWindowText(hCurrentWindow ,@szText,255) > 0 then

if pos('RTX 会话', StrPas(@szText))<>0 then //这里指定某一窗口，可能有多个

begin

memo1.lines.Add(StrPas(@szText));

hi:=0;

get_actrlh(hCurrentWindow);//获取窗口中的所有控件

end;

hCurrentWindow := GetWindow(hCurrentWindow,GW_HWNDNEXT);

end;

end;

end.

4.获取窗口中的某个控件，并对其操作

首先用上面3中的程序,根据窗口中控件的特性，找到你要操作的控件的序号，

即memo1中左边的数字，用变量hnum保存这一序号，再把上面3中的程序稍作修改如下，

以下其实是一个完整的、功能简单的、没有经过优化的腾讯通RTX自动回复消息程序：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

memo1: TMemo;

procedure Button1Click(Sender: TObject);

procedure get_actrlh(h:hwnd);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

hi,hnum:integer;

implementation

{$R *.dfm}

function gettext(h:hwnd):string;

var name:string;

txtlen:integer;

begin

TxtLen:=sendmessage(h ,wm_gettextlength,0,0)+1;

setlength(name,TxtLen);

sendmessage(h ,wm_gettext,txtlen,LongInt(@name[1]));

result:=name;

end;

procedure tform1.get_actrlh(h:hwnd);

var

s: Array[0..255] of char;

begin

h:=GetWindow(h,GW_child);

while h>0 do

begin

GetClassName(h, s, 256);

begin

memo1.lines.Add(inttostr(hi)+':'+s+':'+trim(gettext(h)) );

if hi=hnum then

begin

memo1.lines.Add('上面为找到的控件');

SendMessage(h,WM_SETTEXT,0,Integer(pchar('*此为RichEdit20W所赋的文本')));

end;

end ;

hi:=hi+1;

get_actrlh(h);

h:=GetWindow(h,GW_HWNDNEXT);

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

szText: array[0..254] of char;

hCurrentWindow :hwnd;

begin

hCurrentWindow := GetWindow(Handle,GW_HWNDFIRST);

memo1.Clear;

while hCurrentWindow <> 0 do

begin

if GetWindowText(hCurrentWindow ,@szText,255) > 0 then

if pos('RTX 会话', StrPas(@szText))<>0 then //这里指定某一窗口，可能有多个

begin

memo1.lines.Add(StrPas(@szText));

hi:=0;

hnum:=3; //此为所要赋值的RichEdit20W控件在窗口中的序号

get_actrlh(hCurrentWindow);//获取窗口中的所有控件

//以下向窗口发送ALT_S 组合键，实现腾讯通RTX发送消息

SetForegroundWindow(hCurrentWindow);//设置窗口为当前窗口

keybd_event(VK_menu,MapVirtualKey(VK_menu,0),0,0);

sleep(1000);

keybd_event(83,MapVirtualKey(83,0),0,0);

sleep(1000);

keybd_event(83,MapVirtualKey(83,0),KEYEVENTF_KEYUP,0);

keybd_event(VK_menu,MapVirtualKey(VK_menu,0),KEYEVENTF_KEYUP,0);

end;

hCurrentWindow := GetWindow(hCurrentWindow,GW_HWNDNEXT);

end;

end;

end.