关于WindowFromPoint()函数...(80分)

当前窗口有多个程序以窗口形式运行，偶想做一只监控程序，用<br>鼠标移动到任一窗口上，都能返回其程序的运行参数。我用<br>WindowFromPoint()、GetWindowLong()只能得到当前程序的参数<br>。请问哪位大虾能提供较为详细的源码？谢谢。

try this piece of code and see if it will work:<br><br>procedure TForm1.GetAWnd(var Wnd: hWnd; var WClassName: string;<br>&nbsp; var WndText: string; var WndOwner: hWnd);<br>begin<br>&nbsp; result:=WindowFromPoint(GetCursorPos);<br>&nbsp; GetClassName(Wnd, pchar(ClassName), 255);<br>&nbsp; GetWindowText(Wnd, pchar(WndText), 255);<br>&nbsp; WndOwner:=GetWindow(Wnd,GW_Owner);<br>end;