新手求教-鼠标位置(30分)

当Form最小化或隐藏时（没有焦点），如何将鼠标在SCREEN上位置、动作情况传递给应用程序？请大侠赐教。<br>

用hook

unit Unit1;<br><br>interface<br><br>uses<br>&nbsp; Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br>&nbsp; StdCtrls;<br><br>type<br>&nbsp; TForm1 = class(TForm)<br>&nbsp; &nbsp; Button1: TButton;<br>&nbsp; &nbsp; Button2: TButton;<br>&nbsp; &nbsp; procedure FormCreate(Sender: TObject);<br>&nbsp; &nbsp; procedure Button1Click(Sender: TObject);<br>&nbsp; &nbsp; procedure Button2Click(Sender: TObject);<br>&nbsp; &nbsp; procedure FormClose(Sender: TObject; var Action: TCloseAction);<br>&nbsp; private<br>&nbsp; &nbsp; { Private declarations }<br>&nbsp; &nbsp; Recorder: TStringList;<br>&nbsp; &nbsp; HookHandle: THandle;<br>&nbsp; public<br>&nbsp; &nbsp; { Public declarations }<br>&nbsp; end;<br><br>var<br>&nbsp; Form1: TForm1;<br>&nbsp; S: string;<br><br>implementation<br><br>{$R *.DFM}<br>function MouseProc(Code: Integer; W: WPARAM; L: LPARAM): LRESULT; stdcall;<br>begin<br>&nbsp; if Code &lt; 0 then<br>&nbsp; &nbsp; Result := CallNextHookEx(Form1.HookHandle, Code, W, L)<br>&nbsp; else<br>&nbsp; begin<br>&nbsp; &nbsp; if W = WM_MOUSEMOVE then<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; S := Format('Mouse Move: X = %d, Y = %d',<br>&nbsp; &nbsp; &nbsp; &nbsp; [PMouseHookStruct(L).pt.x, PMouseHookStruct(L).pt.y]);<br>&nbsp; &nbsp; &nbsp; Form1.Recorder.Add(S);<br>&nbsp; &nbsp; end<br>&nbsp; &nbsp; else if W = WM_LBUTTONDOWN then Form1.Recorder.Add('Left Button down')<br>&nbsp; &nbsp; Result := 0;<br>&nbsp; end;<br>end;<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br>&nbsp; Recorder := TStringList.Create;<br>&nbsp; HookHandle := 0;<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>&nbsp; if HookHandle = 0 then<br>&nbsp; &nbsp; HookHandle := SetWindowsHookEx(WH_MOUSE, @MouseProc, hInstance, 0);<br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>begin<br>&nbsp; if HookHandle &lt;&gt; 0 then<br>&nbsp; begin<br>&nbsp; &nbsp; UnhookWindowsHookEx(HookHandle);<br>&nbsp; &nbsp; HookHandle := 0;<br>&nbsp; end;<br>end;<br><br>procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br>begin<br>&nbsp; Recorder.SaveToFile('d:/temp/a.txt');<br>&nbsp; Recorder.Free;<br>end;<br><br>end.<br><br>我很少用Hook的，刚才看到这个问题，觉得挺有趣，就自己参考API帮助文档中<br>的相关内容，试着写了这段代码。虽然可以运行，但不知是否能满足你的要求？<br>

对不起，稍微纠正一下，应该是“光标”的位置。谢谢ＺＲＹ、<br>我用你给的代码试一下，再做答复。

用windows的getcaretpos这个API函数。<br>BOOL GetCaretPos( LPPOINT lpPoint // address of structure to receive coordinates<br>&nbsp; &nbsp;<br>

我记得好像setCapture就可以...

◎◎

Listen

&gt;&gt;

用GetCursorPos（api)也可；<br>email:cjf@chinaagri-star.com

多人接受答案了。