A
aipingren
Unregistered / Unconfirmed
GUEST, unregistred user!
不是自己写的程序，是其他程序里，比如此程序里有个按纽，想知道此按钮在该窗体的位置坐标，该怎么得到？有这样的软件吗？SPY能吗？》能的话，该怎么得到？我是初学者！
G
gudubinghe
Unregistered / Unconfirmed
GUEST, unregistred user!
当然可以了。先hook，然后拦截函数，在函数中获得坐标。<br>懂了这个道理，就可以实现屏幕取词功能。<br><br>低价转让win98,win2k,winxp屏幕取词原代码。可取IE。linsen633@sohu.com
A
aimeoo
Unregistered / Unconfirmed
GUEST, unregistred user!
我是这样用的:<br>---------------------------<br>加一个Timer，OnTimer里面写<br><br>var curPos : TPoint;<br>begin<br> GetCursorPos(curPos);<br> Label1.Caption := 'X:' + IntToStr(curPos.x) + ' Y:' + IntToStr(curPos.y);<br>end;
E
Endy.Vee
Unregistered / Unconfirmed
GUEST, unregistred user!
用Spy++就可以看到，你也可以通过他得到该按钮的handle,然后通过BOOL GetWindowRect（HWND hWnd，LPRECTlpRect）；得到矩形区域，这个区域的坐标就是按钮的坐标[
]
]
H
hygsxy
Unregistered / Unconfirmed
GUEST, unregistred user!
方法一:建立一个监视鼠标消息的全局钩子,自己搜索一下,很多的.--->getcursorpos(获得当前鼠标坐标位置)--->windowfrompoint(根据该坐标获得它的句柄)--->GetClientRect(获得它的客户坐标)<br>方法二:<br>var<br> myhandle : THandle;//本地全局变量<br>{$R *.dfm}<br>function EnumerateChildWindows(hWnd: HWND; lParam: LPARAM): BOOL;stdcall;<br>var//枚举函数<br> windowCaption:array[0..254] of Char;<br>begin<br> GetWindowText(Hwnd,WindowCaption,255);<br> if WindowCaption ='你要求的该按钮标题' then<br> myhandle := hWnd;//找到的按钮句柄<br> Result:=true;<br>end;<br><br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> Hnd : HWnd;<br> myrect:Trect;//存放坐标<br>begin<br> Hnd := FindWindow( nil, '按钮所在窗体的标题);//找该程序窗体的句柄<br> if Hnd = 0 then exit;//没找到,退出<br> EnumChildWindows( H, @EnumerateChildWindows, 0 );<br> GetClientRect(myhandle,@myrect);<br> label1.caption:=format('%d,%d',[myrect.x,myrect.y]);<br> <br><br><br><br>end;<br>
H
hygsxy
Unregistered / Unconfirmed
GUEST, unregistred user!
上面的代码有点太随手了,现为我调试通过的.<br>var<br> myhandle : THandle;//本地全局变量<br><br>function EnumerateChildWindows(hWnd: HWND; lParam: LPARAM): BOOL;stdcall;<br>var//枚举函数<br> windowCaption:array[0..254] of Char;<br>begin<br> GetWindowText(Hwnd,WindowCaption,255);<br> if WindowCaption ='取消' then<br> myhandle := hWnd;//找到的按钮句柄<br> Result:=true;<br>end;<br><br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> Hnd : HWnd;<br> myrect:Trect;//存放坐标<br>begin<br> Hnd := FindWindow( nil, '远程桌面连接');//找该程序窗体的句柄<br> if Hnd = 0 then exit;//没找到,退出<br> EnumChildWindows( Hnd, @EnumerateChildWindows, 0 );<br> Getwindowrect(myhandle,myrect);<br> label1.caption:=format('%d,%d,%d,%d',<br> [myrect.left,myrect.top,myrect.right,myrect.bottom]);<br>end;<br>///目前我只能得到屏幕下的坐标,不知道有没有得到客户坐标的函数?