如何捕获鼠标在屏幕（非当前窗体）落下时的坐标位置？(200分)

如何捕获鼠标在屏幕（非当前窗体）落下时的坐标位置？事件？

方法一: &nbsp; &nbsp; &nbsp;添加一Timer &nbsp;，定义一个Tpoint变量pt,在onTimer中 getCursorPos(pt);label1.caption:=inttostr(pt.x)+' &nbsp; &nbsp;'+inttostr(pt.y);即可。<br><br><br>方法二：点右键显示坐标，主程序代码：<br> &nbsp; &nbsp; &nbsp; unit mainWnd;<br><br>interface<br><br>uses<br> { Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> &nbsp;Dialogs, StdCtrls, ExtCtrls; }<br> &nbsp; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> &nbsp;Dialogs,shellapi, StdCtrls;<br><br>type<br> &nbsp;TForm1 = class(TForm)<br> &nbsp; &nbsp;Label1: TLabel;<br> &nbsp; &nbsp;Button1: TButton;<br> &nbsp; &nbsp;Button2: TButton;<br> &nbsp; &nbsp;procedure Button1Click(Sender: TObject);<br> &nbsp; &nbsp; &nbsp;procedure Button2Click(Sender: TObject);<br> &nbsp;public<br> &nbsp; &nbsp;{ Public declarations }<br><br> &nbsp; &nbsp; procedure wndProc(var mess:TMessage);override;<br> &nbsp;private<br> &nbsp; &nbsp;{ Private declara }<br><br> &nbsp;end;<br><br>var &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<br> &nbsp;Form1: TForm1;<br> &nbsp;myMessage:UINT;<br>implementation<br><br>{$R *.dfm}<br>procedure installMouseHook;external './hookdll.dll';<br> &nbsp;procedure unHookMouseHook;external './hookdll.dll';<br> procedure byMain( wnd:Hwnd);external './hookdll.dll';<br>procedure TForm1.wndProc(var mess:TMessage);<br>begin<br> &nbsp; &nbsp; &nbsp;if mess.Msg=myMessage then<br> &nbsp; &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; label1.Caption:='X'+inttostr(mess.wparam)+' &nbsp;Y'+inttostr(mess.lparam);<br> &nbsp; &nbsp; &nbsp;end else<br> &nbsp; &nbsp; &nbsp;inherited;<br>end;<br><br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> &nbsp; byMain(form1.handle);<br> &nbsp; installMouseHook;<br><br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>begin<br> &nbsp; &nbsp; &nbsp;unHookMouseHook;<br>end;<br>begin<br> &nbsp;myMessage:=registerWindowMessage(pchar('sxw'));<br>end.<br> //dll中代码为<br><br>library hookdll;<br><br> &nbsp; uses<br> &nbsp;ShareMem,<br> &nbsp;Windows,<br> &nbsp;Classes,<br> &nbsp;Controls,<br> &nbsp;Dialogs,<br> &nbsp;SysUtils,<br> &nbsp;shellapi,<br> &nbsp;Qt;<br><br>{$R *.res}<br><br><br><br> var mousehook:HHook;<br> &nbsp; &nbsp; callMessage:UINT;<br> &nbsp; &nbsp;mainwindow:Hwnd;<br>procedure byMain(wnd:Hwnd);<br>begin<br> &nbsp; &nbsp; &nbsp; mainWindow:=wnd;<br> end;<br>function MouseProc(nCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;<br>var p:^MOUSEHOOKSTRUCT;<br>begin<br><br> &nbsp; &nbsp; &nbsp; &nbsp; p:=ptr(lParam);<br> &nbsp; &nbsp; &nbsp; &nbsp; if (wParam=516) and (ncode&gt;=0) then<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;sendMessage(hwnd_broadCast,callMessage,p^.pt.x,p^.pt.y);<br> &nbsp; &nbsp; &nbsp; &nbsp; result:=callNextHookEx(mouseHook,nCode,wParam,lParam);<br> end;<br><br><br><br> procedure installMouseHook;stdcall;<br> begin<br> &nbsp; &nbsp; &nbsp; mousehook:=setWindowsHookEx(WH_MOUSE,@MouseProc,Hinstance,0);<br> end;<br>procedure unHookMouseHook;stdcall;<br>begin<br> &nbsp; &nbsp; if mousehook&lt;&gt;0 then<br> &nbsp; &nbsp; begin<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;unHookWindowsHookEx(mousehook);<br> &nbsp; &nbsp; end;<br>end;<br><br>exports<br> &nbsp; &nbsp; &nbsp; unHookMouseHook,<br> &nbsp; &nbsp; &nbsp; installMouseHook,<br> &nbsp; &nbsp; &nbsp; byMain;<br><br>begin<br> &nbsp; callMessage:=registerWindowMessage('sxw');<br><br>end.<br><br>结帐吧！