200大讨论：能者拿分--句柄 ( 积分: 200 )

shell~ · 2005-01-12

我现在写了一个程序A.exe控制另一个程序B.exe B.exe窗体中有五个Edit,只知道它们是TEDIT类，不知道什么名称。 A.exe窗体中也有五个Edit,与B.exe中的一一对应。我现在要实现的就是把A.exe中五个EDIT的内容发送B.exe中的相对应的EDIT。 我如果得到B.exe窗体的中每个Edit的位置，从而ChildWindowFromPoint得到它的句柄。不要跟我说用猜的喔，有没有相关的API可得到其位置（不是相对屏幕的位置）

shell~ · 2005-01-12

我现在写了一个程序A.exe控制另一个程序B.exe B.exe窗体中有五个Edit,只知道它们是TEDIT类，不知道什么名称。 A.exe窗体中也有五个Edit,与B.exe中的一一对应。我现在要实现的就是把A.exe中五个EDIT的内容发送B.exe中的相对应的EDIT。 我如果得到B.exe窗体的中每个Edit的位置，从而ChildWindowFromPoint得到它的句柄。不要跟我说用猜的喔，有没有相关的API可得到其位置（不是相对屏幕的位置）

shell~ · 2005-01-12

[

!][

!]

黑鹰船长 · 2005-01-12

有API,但我不记得了，我是在《Delphi开发人员指南》一书上看到的， 那上面刚好有这个列题。

shell~ · 2005-01-12

哪一单，我也有这本书。

迷糊 · 2005-01-12

可以用api取得位置，但是好像要指定控件句柄，而你要取的恰恰是句柄，所以这种方法可能不行。 可以考虑用鼠标hook挂到你的程序B上，当在控件上动作鼠标时就可以取道位置，然后用ChildWindowFromPoint取得句柄

weiliu · 2005-01-12

给你一个程序，你自己看看，也许对你有帮助： Delphi学习:查句柄知多少出处：CSDN [ 2004-11-02 14:10:38 ]  作者：pggpjj  责任编辑：linjixiong 　　基本上句柄是标志窗口，我可以根据句柄又可引申其中更多如类名，windowtitle等属性所以基于这点，一般开发工具会提供查句柄，查类名等工具，vs提供的spy++就是一个很好例子。现在教你们一查句柄知多少。其实也简单，下面贴出源代码。 　　procedure Tform1.TimerTimer(Sender: TObject); 　　var 　　Pos: TPoint; 　　Handle: HWND; 　　ScreenDC: HDC; 　　Buf: array[0..1024] of Char; 　　ScreenColor: COLORREF; 　　begin 　　GetCursorPos(Pos); // 得到当前光标位置 　　Handle := WindowFromPoint(Pos); // 返回当前位置的句柄 　　HandleText.Caption := IntToStr(Handle); 　　GetClassName(Handle, Buf, 1024); // 得到类名 　　ClassNameText.Caption := Buf; 　　SendMessage(Handle, WM_GETTEXT, 33, Integer(@Buf)); // 得到标题 　　TitleText.Caption := Buf; 　　{ 得到光标处点的颜色 } 　　ScreenDC := GetDC(0); 　　ScreenColor := GetPixel(ScreenDC, Pos.X, Pos.Y); 　　Shape.Brush.Color := TColor(ScreenColor); 　　RGBColorText.Caption := '红: ' + IntToStr(GetRValue(ScreenColor)) + 　　'  绿: ' + IntToStr(GetGValue(ScreenColor)) + '  蓝: ' + 　　IntToStr(GetBValue(ScreenColor)); 　　ReleaseDC(0, ScreenDC); 　　DelphiColorText.Caption := Format('Delphi中颜色值：$00%2.2x%2.2x%2.2x', [GetBValue(ScreenColor), 　　GetGValue(ScreenColor), GetRValue(ScreenColor)]); 　　HTMLColorText.Caption := Format('HTML颜色值：#%2.2x%2.2x%2.2x', [GetRValue(ScreenColor), 　　GetGValue(ScreenColor), GetBValue(ScreenColor)]); 　　end;

刘麻子 · 2005-01-12

没太看明白什么意思,不过可以用FindWindowEx来得到自控件的句柄.[

]

delphi2006 · 2005-01-12

脑筯要转一转了，其实用相对位置也一样能得到呀，方法其实很多的。 说一个吧：按类和标题找到窗口，在遍历每个控件，如果相对位置和需要的控件相同。知道怎么办了吧。

shell~ · 2005-01-12

TO weiliu：你的方法我已经实现了，我不想用光标去取句柄，五个EDIT我要点五次。我是想通过计算每个EDIT的位置得出他们的句柄，我只要点一个按钮，五个文本全部发送出去。 TO 迷糊：B程序是别人的可执行程序，我该怎么办： TO delphi2006:我比较笨，请详细说明。

yostgxf · 2005-01-12

不是很明白楼主的意思，给你函数吧 1.    //取句柄    AHandle := FindWindow(nil, '计算器');  //就是窗口的Caption //或  AHandle := GetActiveWindow; //或GetForeGroundWindow;获得当前激活窗体的句柄 2. 枚举组件，例：   if AHandle &lt;&gt; 0 then    begin        //在这里循环取到想要的句柄为止        EnumChildWindows(AHandle, @GetComponentHandle, Integer(@BHandle));        //此时，BHandle就是你要的句柄        PostMessage(BHandle, BM_Click, 0, 0); //向这个按钮发一个点击消息    end; 3. 判断 function GetComponentHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall; var  buffer: array[0..255] of Char;  ARect: TRect;  APoint: TPoint; begin    Result := True;    //得到目标窗口的控件 {    GetClassName(hwnd, buffer, 256);    //找到目标窗口的TButton类目标控件    if StrPas(Buffer)='TButton' then    begin        PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)        Result:=False;  //终止循环    end; } //其他函数 //    GetWindowRect(hWnd, ARect);  //组件的位置 //    GetCursorPos(APoint);        //光标的位置 //    if PtInRect(ARect, APoint) then   //光标是否在组件中    //找到目标窗口的目标控件（按标题）    GetWindowText(hwnd, buffer, 100);    if StrPas(Buffer)='Button1' then    begin        PInteger(lparam)^ := hwnd; //得到目标控件的Hwnd(句柄)        Result:=False;  //终止循环    end; end;

yostgxf · 2005-01-12

当需要获取另外一个应用程序中的所有控件句柄时： 因为回调函数只能返回一个句柄，所以需要全局变量在回调函数获取。例： var MyHandle :TStringList;    MyHandle :=TStringList.Create; function GetComponentHandle(hwnd: Integer; lparam: Longint):Boolean; stdcall; var  buffer: array[0..255] of Char; begin    Result := True;    //得到目标窗口的控件    MyHandle.add(IntToStr(hwnd));//找到目标窗口的句柄 //    GetClassName(hwnd, buffer, 256); //    MyHandle.add(StrPas(Buffer));//找到目标窗口的T类名 //  等 end;

shell~ · 2005-01-12

TO　yostgxf：问题是５个ＥＤＩＴ的ＴＥＸＴ都为空。

shell~ · 2005-01-12

我现在的问题是：如果取得B.exe中的五个Edit各自的x,y坐标（窗体相对位置，不是屏幕相对位置）

yostgxf · 2005-01-12

上面我已经给你很多的函数了    GetClassName(hwnd, buffer, 256);    //找到目标窗口的TEdit类目标控件    if StrPas(Buffer)='TEdit' then 根据类名，TEdit 你可以找到所有的TEdit 其他的你类推吧

shell~ · 2005-01-12

yostgxf：我如何区别这五个EDIT

yostgxf · 2005-01-12

这个你自己想想办法 比如用句柄，位置，还有看看它们的    //找到目标窗口的目标控件（按标题）    GetWindowText(hwnd, buffer, 100); 是不是相同的。 枚举函数会把所有的都列出来，你自己试一试嘛

shell~ · 2005-01-12

[

]晕了晕了。

迷糊 · 2005-01-12

我的意思是在你的程序（A）中用鼠标hook挂到别人的程序B中，然后当你在程序B的点edit的时候求可以取到handle了，但是好像你不愿意用鼠标点击取得句柄。：（    有个比较愚蠢的办法，先遍历B所有的edit,用setwindowtext给他附上不同的序号（1，2，3，4，5），然后用findwindwex一个一个对去吧，呵呵

shell~ · 2005-01-12

我在遍历Ｂ的时候，回调函数总是出错。定义了一个MyHandle的StringList变量 var    fHd: HWND; function EnumChildWindowsProc(hwnd: Integer; lparam: Longint):Boolean; stdcall;  var    buffer: array[0..255] of Char;  begin    Result := True;    //得到目标窗口的控件    GetClassName(hwnd,buffer,256);    //找到发消息的目标窗口的目标控件    if StrPas(Buffer)='TEdit' then    begin      //ShowMessage(IntToStr(hwnd));      //MyHandle.Add(IntToStr(hwnd)); //得到目标控件的Hwnd(句柄)      Memo1.Lines.Add(IntToStr(hwnd));      //Result:=False;  //终止循环    end;  end; begin  fHd:=0;    fHd:=FindWindow(nil,Pchar('基本信息...信息框'));//按标题找父窗口的句柄    if fHd=0 then begin        ShowMessage('找不到标题为基本信息...编辑框的窗口！');        Exit;    end;    enumchildwindows(fhd,@EnumChildWindowsProc,0); end;

200大讨论：能者拿分--句柄 ( 积分: 200 )

shell~

Unregistered / Unconfirmed

shell~

Unregistered / Unconfirmed

shell~

Unregistered / Unconfirmed

黑鹰船长

Unregistered / Unconfirmed

shell~

Unregistered / Unconfirmed

迷糊

Unregistered / Unconfirmed

weiliu

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

delphi2006

Unregistered / Unconfirmed

shell~

Unregistered / Unconfirmed

yostgxf

Unregistered / Unconfirmed

yostgxf

Unregistered / Unconfirmed

shell~

Unregistered / Unconfirmed

shell~

Unregistered / Unconfirmed

yostgxf

Unregistered / Unconfirmed

shell~

Unregistered / Unconfirmed

yostgxf

Unregistered / Unconfirmed

shell~

Unregistered / Unconfirmed

迷糊

Unregistered / Unconfirmed

shell~

Unregistered / Unconfirmed

Similar threads