怎么样实现SPY++中的拖动“瞄准器”就得到目标窗口的句柄？(50分)

在SPY++中有个FIND WINDOW，里面只要拖动“瞄准器”就可以知道目标窗口的句柄。<br><br>我现在想在自己的程序中实现得到任一 随意指定的 可视窗口 的句柄，有什么方法吗？<br><br>不论是仿照SPY++或者别的方法，只要能实现目的就可以。

TForm1 = class(TForm)<br> &nbsp; &nbsp;Panel1: TPanel;<br> &nbsp; &nbsp;procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;<br> &nbsp; &nbsp; &nbsp;Shift: TShiftState; X, Y: Integer);<br> &nbsp; &nbsp;procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,<br> &nbsp; &nbsp; &nbsp;Y: Integer);<br> &nbsp; &nbsp;procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;<br> &nbsp; &nbsp; &nbsp;Shift: TShiftState; X, Y: Integer);<br> &nbsp;private<br> &nbsp; &nbsp;IsCapture : Boolean;<br> &nbsp;public<br> &nbsp; &nbsp;{ Public declarations }<br> &nbsp;end;<br><br>procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;<br> &nbsp;Shift: TShiftState; X, Y: Integer);<br>begin<br> &nbsp;if SetCapture(Panel1.Handle) &lt;&gt; 0 then<br> &nbsp;begin<br> &nbsp; &nbsp;Screen.Cursor := &nbsp;crHandPoint;<br> &nbsp; &nbsp;IsCapture &nbsp; &nbsp; := &nbsp;True;<br> &nbsp;end;<br>end;<br><br>procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,<br> &nbsp;Y: Integer);<br>var<br> &nbsp;hWindow &nbsp;: HWND;<br> &nbsp;p : TPoint;<br>begin<br> &nbsp;if IsCapture then<br> &nbsp;begin<br> &nbsp; &nbsp;GetCursorPos(p);<br> &nbsp; &nbsp;hWindow &nbsp; &nbsp; &nbsp; := &nbsp;WindowFromPoint(p);<br> &nbsp; &nbsp;Caption := &nbsp;IntToStr(hWindow);<br> &nbsp;end;<br>end;<br><br>procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;<br> &nbsp;Shift: TShiftState; X, Y: Integer);<br>begin<br> &nbsp;Screen.Cursor := crDefault;<br> &nbsp;ReleaseCapture;<br> &nbsp;IsCapture &nbsp; := &nbsp;False;<br>end;

我想抓的是外部程序的窗口,不是自己程序的

你到2ccc上面去下载一个吧，有这个软件，你说的，而且还有源代码的。<br>http://www.2ccc.com/article.asp?articleid=365

接受答案了.

cqwty 不好意思啊 ,我没刷新页面没看到你的留言.<br>虽然没分了但还是很谢谢你.