除了Handle,怎样唯一识别一个进程中的窗口(HWND)？(100分)

lxggc · 2004-02-28

因为窗口的Handle会在每次重新启动后发生改变，比如一个EDIT控件，每次程序运行时它的Handle都会发生改变，有没有办法对一个Window中的ChildWindow(如一个Form中的Edit)进行唯一识别？也就是每次程序启动时我都能找到这个ChildWindow. 控件的 Z 顺序只是一种不太完美的解决，因为Z顺序也可能会发生改变。

yf168 · 2004-02-28

不明白意思,到底要实现什么? 程序启动的时候当然能找到这个Edit, 你用name属性不能找到该控件?

lxggc · 2004-02-29

to yf168:   谢谢你的关注，可能是我表述不清，举个例子：我要用程序往 IE 的地址栏输入超连接文本，必须先找到能唯一识别这个地址栏的标志，并且在 IE 重新启动后能重新找到这个地址栏，可是地址栏的 Handle 在每次 IE 重启之后都会发生改变。   我现在的问题就是，假设在一个Window中同时存在多个Edit, 有没有办法能区分他们？

fu_qi_ming · 2004-02-29

很难

wzboy1984 · 2004-02-29

对于你碰到的问题，如果你没试过用TIEcontroller，建议你试一试。   uses  IEController;   IEControl:TIEController;     IEControl := TIEController.Create(Self);   IEControl.open;

lb_icesea79 · 2004-02-29

>>我现在的问题就是，假设在一个Window中同时存在多个Edit, 有没有办法能区分他们？ 记数器

lxggc · 2004-03-01

看来还有些朋友不明白我的意思：假设有一个他人编写的程序，其中一个窗口中有5个Edit, 包括一个输入用户名的 Edit,现在我要做一个程序，能在它的程序每次启动时都能自动输入用户名，但我首先要找到这个 Edit。(这些Edit的位置，顺序都有可能发生变化)

tianliangle2003 · 2004-03-03

用WindowFromPoint

ranksun · 2004-03-03

EnumChildWindows(hFind,@EnumChildWindowsProc,Integer(@hFind)); //  hFind  窗口handle function EnumChildWindowsProc(hwnd: Integer): Boolean; stdcall;   var     buffer: array[0..255] of Char;     buffer1: array[0..255] of Char;   begin     Result := True;     GetClassName(hwnd,buffer,256);  //得到类名     GetWindowText(hwnd,Buffer1,256);     if StrPas(Buffer) = 'TEdit' then     Begin         //这里你可以计数，比如，第一个是什么。。一般是不会变的。         if iNum = 1 then             hBack  := hwnd ;     end; end;

lxggc · 2004-03-04

to ranksun: 你的方法我也想到过，基本可行，但如果在程序运行中动态创建或删除Edit就没有办法了。 我估计解决这个问题很难 :-(

dcba · 2004-03-04

如果这样你就Hook api 只要以创建窗口就先调用你的替换API,然后你就能知道了

Coolcfan · 2004-03-05

请详细解释一下好不好？Hook API

yf168 · 2004-03-05

我还真没有想到好的办法:   假设在一个Window中同时存在多个Edit, 有没有办法能区分他们？ 顶 (回去查一下资料)

lxggc · 2004-03-07

期待高手的加入，顶。。。。。。。。

newsha · 2004-03-10

下面是论坛上一为朋友发的帖子,我想你应该是这个意思. 先发给你,免得你去找了. unit OicqSendForm; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, Buttons, ExtCtrls; type   TfrmMain = class(TForm)     memText: TMemo;     edtTime: TEdit;     Label1: TLabel;     Bevel1: TBevel;     Label2: TLabel;     bbtnStart: TBitBtn;     bbtnEnd: TBitBtn;     bbtnHelp: TBitBtn;     Timer: TTimer;     procedure bbtnStartClick(Sender: TObject);     procedure bbtnEndClick(Sender: TObject);     procedure TimerTimer(Sender: TObject);     procedure bbtnHelpClick(Sender: TObject);   private     { Private declarations }     FTextHandle: HWND;   //qq消息输入框句柄     FButtonHandle: HWND; //发送按钮输入框   public     { Public declarations }   end; var   frmMain: TfrmMain; implementation //这个函数取当前qq发送窗口上“送讯息”的按钮的句柄 //function EnumChildWindowsProc(hwnd: Integer; lparam: Longint):Boolean; stdcall; function GetButtonHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall; var   buffer: array[0..255] of Char;   buffer1: array[0..255] of Char; begin   Result := True;   //得到目标窗口的控件   GetClassName(hwnd,buffer,256);   //找到发消息的目标窗口的目标控件   if StrPas(Buffer)='Button' then   begin     GetWindowText(hwnd,buffer1,100);     if buffer1 = '送讯息(&S)' then     begin       PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)       Result:=False;  //终止循环     end;   end; end;//end of function //这个函数取当前qq发送窗口上消息框句柄 //function EnumChildWindowsProc(hwnd: Integer; lparam: Longint):Boolean; stdcall; function GetEditHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall; var   buffer: array[0..255] of Char;   buffer1: array[0..255] of Char; begin   Result := True;   //得到目标窗口的控件   GetClassName(hwnd,buffer,256);   //找到发消息的目标窗口的目标控件   if StrPas(Buffer)='Edit' then   begin     GetWindowText(hwnd,buffer1,100);     PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)     Result:=False;  //终止循环   end; end;//end of function {$R *.DFM} procedure TfrmMain.bbtnStartClick(Sender: TObject); var   Handle: Integer;   tmpHandle: Integer; begin   {取句柄}   Handle := FindWindow(nil,'对话模式');  //就是窗口的Caption   if Handle<>0 then   begin     tmpHandle := Handle;     //在这里循环取到想要的句柄为止     //取发送按钮的，FButtonHandle     EnumChildWindows(Handle,@GetButtonHandle,Integer(@Handle));     FButtonHandle := Handle;     //取消息输入框的，FTextHandle     EnumChildWindows(tmpHandle,@GetEditHandle,Integer(@tmpHandle));     FTextHandle := tmpHandle;     Timer.Interval := StrToInt(edtTime.Text);     Timer.Enabled := true;   end;//end of if end; procedure TfrmMain.bbtnEndClick(Sender: TObject); begin   Timer.Enabled := false;//关闭定时器 end; procedure TfrmMain.TimerTimer(Sender: TObject); begin   {定时发送}   //设发送文本   SendMessage(FTextHandle,WM_SETTEXT,0,Integer(pchar(memText.Text)));   //发送按钮   //SendMessage(FButtonHandle,BN_CLICKED,0,0);   SendMessage(FButtonHandle,WM_LBUTTONDOWN,0,0);   SendMessage(FButtonHandle,WM_LBUTTONUP,0,0); end; procedure TfrmMain.bbtnHelpClick(Sender: TObject); var   sHelp: String; begin   //帮助   sHelp := '打开要发送的对象窗口'+#13+            '选择对话模式后点[开始]！';   ShowMessage(sHelp);         end; end.

lxggc · 2004-03-17

to:newsha,   谢谢你的回答，可是你的方法仍然不能解决问题，在 GetEditHandle 中只是简单的判断一个Hwnd的ClassName是否为 Edit,如果在窗口中出现多个 Edit的情况下你的程序就行不通了，我要求的是从多个Edit中找到我需要的一个。

kawen · 2004-03-30

如果是VC的程序，可以找到dialog资源,有唯一的资源ID 如果是delphi程序，frm文件上name是唯一标识。

satanmonkey · 2004-03-30

靠位置来区分，别告诉我位置也是变的。

lxggc · 2004-04-08

to kawen:   即使在 VC 中， Edit也不见得是放在 dialog 中 to satanmonkey: 办法蠢了点，但还真的可行，^_^，人太多，只好见者有份了，谢谢各位了！

除了Handle,怎样唯一识别一个进程中的窗口(HWND)？(100分)

lxggc

Unregistered / Unconfirmed

yf168

Unregistered / Unconfirmed

lxggc

Unregistered / Unconfirmed

fu_qi_ming

Unregistered / Unconfirmed

wzboy1984

Unregistered / Unconfirmed

lb_icesea79

Unregistered / Unconfirmed

lxggc

Unregistered / Unconfirmed

tianliangle2003

Unregistered / Unconfirmed

ranksun

Unregistered / Unconfirmed

lxggc

Unregistered / Unconfirmed

dcba

Unregistered / Unconfirmed

Coolcfan

Unregistered / Unconfirmed

yf168

Unregistered / Unconfirmed

lxggc

Unregistered / Unconfirmed

newsha

Unregistered / Unconfirmed

lxggc

Unregistered / Unconfirmed

kawen

Unregistered / Unconfirmed

satanmonkey

Unregistered / Unconfirmed

lxggc

Unregistered / Unconfirmed

Similar threads