文件名称：delphi_钩子截获鼠标操作
文件大小：194KB
文件格式：RAR
更新时间：2014-02-14 04:10:48
delphi_钩子截获鼠标操作
var Form1: TForm1; Hook:HHOOK; PlayHook:HHOOK; PlayLog:Integer; EventLog:Integer; EventArr:array[0..1000]of EVENTMSG; //记录鼠标时间 bDelay:Bool; implementation {$R *.dfm} function HookProc(iCode:Integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall; begin Result:=0; if iCode < 0 then Result := CallNextHookEx(Hook,iCode,wParam,lParam) else if iCode = HC_SYSMODALON then //不允许回放 // else if iCode = HC_SYSMODALOFF then //允许回放 // else if (iCode = HC_ACTION) then begin EventArr[EventLog]:=pEventMSG(lParam)^; //把鼠标动作存入缓冲区 EventLog:=EventLog+1; //缓冲区指针加1 if EventLog>=1000 then begin UnHookWindowsHookEx(Hook); end; end; end; function HookPlayBack(iCode:Integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall; begin Result:=0; if iCode<0 then CallNextHookEx(PlayHook,iCode,wParam,lParam) else if iCode = HC_SYSMODALON then //不允许回放 // else if iCode = HC_SYSMODALOFF then //允许回放 // else if (iCode=HC_GETNEXT) then begin if bDelay then begin bDelay:=False; Result:=50; end; pEventMSG(lParam)^:=EventArr[PlayLog]; end else if (iCode = HC_SKIP)then begin bDelay := True; PlayLog:=PlayLog+1; end; if PlayLog>=EventLog then begin UNHookWindowsHookEx(PlayHook); end; end;
【文件预览】：
鼠标
----__history()
--------Mouse_Record.dfm.~8~(797B)
--------Mouse_Record.pas.~32~(3KB)
--------Mouse_Record.pas.~35~(3KB)
--------Mouse_Record.pas.~31~(3KB)
--------Mouse_Record.dfm.~10~(851B)
--------Mouse_Record.dfm.~4~(776B)
--------Mouse_Record.pas.~30~(3KB)
--------Mouse_Record.pas.~37~(3KB)
--------Mouse_Record.pas.~28~(3KB)
--------Mouse_Record.dfm.~9~(822B)
--------Mouse_Record.dfm.~7~(793B)
--------Mouse_Record.pas.~29~(3KB)
--------Mouse_Record.dfm.~6~(793B)
--------Mouse_Record.pas.~34~(3KB)
--------Mouse_Record.pas.~33~(3KB)
--------Mouse_Record.dfm.~3~(627B)
--------Mouse_Record.dfm.~5~(776B)
--------Mouse_Record.dfm.~11~(881B)
--------Mouse_Record.dfm.~12~(909B)
--------Mouse_Record.pas.~36~(3KB)
----MouseRecord.identcache(221B)
----MouseRecord.res(5KB)
----MouseRecord.dpr(247B)
----Mouse_Record.dfm(941B)
----MouseRecord.exe(404KB)
----MouseRecord.dproj(4KB)
----Mouse_Record.dcu(6KB)
----Mouse_Record.pas(3KB)
----MouseRecord.dproj.local(2KB)