如何捕获鼠标的动作(200分)

如何在自己的窗口在非激活的状态下捕获鼠标按键动作

什么意思，在非激活状态下的窗口一按鼠标键，不就变成激活状态了吗？<br>你想做什么。

例如：捕获鼠标在桌面上点击图标的动作[^]

&nbsp;用鼠标钩子，过滤判断所有的鼠标信息

刚刚写了一个回放鼠标及键盘动作的小东西.<br>抄袭这期的程序员增刊上的.<br>用的hook.

能把用鼠标钩子的例子贴上来吗？<br>我的目的不是在自己机器上回放鼠标或键盘的动作，而是在别的机器上重复我的动作。

找到了,给你贴出来。<br><br>☆★通过Delphi建立键盘鼠标动作纪录与回放★☆<br>&nbsp;<br>很多的教学软件或系统监视软件可以自动记录回放用户的输入文字或点击按钮等操作操作，这个功能的实现是使用<br>了Windows的Hook函数。<br>Windows提供API函数SetwindowsHookEx来建立一个Hook，通过这个函数可以将一个程序添加到Hook链中监视Windows<br>消息，函数语法为：<br>SetWindowsHookEx(idHook: Integer; lpfn: TFNHookProc; hmod: HINST; dwThreadId: DWORD)<br>其中参数idHook指定建立的监视函数类型。通过Windows MSDN帮助可以看到，SetwindowsHookEx函数提供15种不同 <br>的消息监视类型，在这里我们将使用WH_JOURNALRECORD和WH_JOURNALPLAYBACK来监视键盘和鼠标操作。参数lpfn指定消<br>息函数，在相应的消息产生后，系统会调用该函数并将消息值传递给该函数供处理。函数的一般形式为：<br>Hookproc (code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;<br>其中code为系统指示标记，wParam和lParam为附加参数，根据不同的消息监视类型而不同。只要在程序中建立这样<br>一个函数再通过SetwindowsHookEx函数将它加入到消息监视链中就可以处理消息了。<br>在不需要监视系统消息时需要调用提供UnHookWindowsHookEx来解除对消息的监视。<br>WH_JOURNALRECORD和WH_JOURNALPLAYBACK类型是两种相反的Hook类型，前者获得鼠标、键盘动作消息，后者回放鼠<br>标键盘消息。所以在程序中我们需要建立两个消息函数，一个用于纪录鼠标键盘操作并保存到一个数组中，另一个用于<br>将保存的操作返给系统回放。<br>下面来建立程序，在Delphi中建立一个工程，在Form1上添加3个按钮用于程序操作。另外再添加一个按钮控件和一<br>个Edit控件用于验证操作。<br>下面是Form1的全部代码<br><br>unit Unit1;<br><br>interface<br><br>uses<br>Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br>StdCtrls;<br><br>type<br>TForm1 = class(TForm)<br>Button1: TButton;<br>Button2: TButton;<br>Button3: TButton;<br>Edit1: TEdit;<br>Button4: TButton;<br>procedure FormCreate(Sender: TObject);<br>procedure Button1Click(Sender: TObject);<br>procedure Button2Click(Sender: TObject);<br>procedure Button3Click(Sender: TObject);<br>private<br>{ Private declarations }<br>public<br>{ Public declarations }<br>end;<br><br>var<br>Form1: TForm1;<br><br>EventArr:array[0..1000]of EVENTMSG;<br>EventLog:Integer;<br>PlayLog:Integer;<br>hHook,hPlay:Integer;<br>recOK:Integer;<br>canPlay:Integer;<br>bDelay:Bool;<br>implementation<br><br>{$R *.DFM}<br>Function PlayProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall;<br>begin<br>canPlay:=1;<br>Result:=0;<br><br>if iCode &lt; 0 then //必须将消息传递到消息链的下一个接受单元<br>Result := CallNextHookEx(hPlay,iCode,wParam,lParam)<br>else if iCode = HC_SYSMODALON then<br>canPlay:=0<br>else if iCode = HC_SYSMODALOFF then<br>canPlay:=1<br>else if ((canPlay =1 )and(iCode=HC_GETNEXT)) then begin<br>if bDelay then begin<br>bDelay:=False;<br>Result:=50;<br>end;<br>pEventMSG(lParam)^:=EventArr[PlayLog];<br>end<br>else if ((canPlay = 1)and(iCode = HC_SKIP))then begin<br>bDelay := True;<br>PlayLog:=PlayLog+1;<br>end;<br>if PlayLog&gt;=EventLog then begin<br>UNHookWindowsHookEx(hPlay);<br>end;<br>end;<br><br>function HookProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall;<br>begin<br>recOK:=1;<br>Result:=0;<br><br>if iCode &lt; 0 then<br>Result := CallNextHookEx(hHook,iCode,wParam,lParam)<br>else if iCode = HC_SYSMODALON then<br>recOK:=0<br>else if iCode = HC_SYSMODALOFF then<br>recOK:=1<br>else if ((recOK&gt;0) and (iCode = HC_ACTION)) then begin<br>EventArr[EventLog]:=pEventMSG(lParam)^;<br>EventLog:=EventLog+1;<br><br>if EventLog&gt;=1000 then begin<br>UnHookWindowsHookEx(hHook);<br>end;<br>end;<br>end;<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br>Button1.Caption:='纪录';<br>Button2.Caption:='停止';<br>Button3.Caption:='回放';<br>Button4.Caption:='范例';<br>Button2.Enabled:=False;<br>Button3.Enabled:=False;<br>end;<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>EventLog:=0;<br>//建立键盘鼠标操作消息纪录链<br>hHook:=SetwindowsHookEx(WH_JOURNALRECORD,HookProc,HInstance,0);<br>Button2.Enabled:=True;<br>Button1.Enabled:=False;<br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>begin<br>UnHookWindowsHookEx(hHook);<br>hHook:=0;<br><br>Button1.Enabled:=True;<br>Button2.Enabled:=False;<br>Button3.Enabled:=True;<br>end;<br><br>procedure TForm1.Button3Click(Sender: TObject);<br>begin<br>PlayLog:=0;<br>//建立键盘鼠标操作消息纪录回放链<br>hPlay:=SetwindowsHookEx(WH_JOURNALPLAYBACK,PlayProc,<br>HInstance,0);<br><br>Button3.Enabled:=False;<br>end;<br><br>end.<br><br>代码添加完毕后，运行程序，点击“纪录”按钮开始纪录操作，这时你可以在文本控件中输入一些文字或者点击<br>“范例”按钮，然后点击“停止”按钮停止纪录，再点击“回放”按钮就可以讲先前所做的操作回放。<br>在上面的程序中，HookProc是纪录操作的消息函数，每当有鼠标键盘消息发生时，系统都会调用该函数，消息信<br>息就保存在地址lParam中，我们可以讲消息保存在一个数组中。PlayProc是消息回放函数，当系统可以执行消息回放<br>时调用该函数，程序就将先前纪录的消息值返回到lParam指向的区域中，系统就会执行该消息，从而实现了消息回放。<br><br><br><br><br><br>&nbsp;<br>

那如何在别的机器上回放刚才的动作呢？

我有一个例子,要的话,发给你.kan@freetrend.com.vn

kan@freetrend.com.vn<br>你好，如果你有时间麻烦你发给我例子。<br>txjjin@163.com

To zhangkan<br>&nbsp; 麻烦E-mail to freefsm@263.net

不好意思，我263的油箱不行了，麻烦mail to freefsm@21cn.com<br>

又一个懒惰的人·！

麻烦给我一份<br>victorcheng@21cn.com

用钩子！写在Dll里哦

我也要

学习

up...

UP

我也要一份<br>wanghuiss@163.net