检测全局鼠标动作
来源:互联网 发布:php tmp目录 编辑:程序博客网 时间:2024/05/18 00:14
http://www.cnblogs.com/del/archive/2008/02/26/1082254.html
为什么全局钩子非要在 DLL 中呢?
因为每个 EXE 都是一个独立而封闭的进程; 而 DLL 则是面向系统的公用资源.
如果一个钩子不是面向系统的, 恐怕意义不大; 所以在实用中, 钩子是离不开 DLL 的.
分两步:
一、建立 DLL, 并在 DLL 实现钩子的设置、释放和钩子函数;
二、再建一个工程调用测试.
第一步: 做 DLL
//把工程保存为 MyHook.dpr, 并实现如下:
library MyHook;uses SysUtils, Windows, {钩子函数都来自 Windows 单元} Messages, {消息 WM_LBUTTONDOWN 定义在 Messages 单元} Classes;{$R *.res}var hook: HHOOK; {钩子变量} Flag:boolean;{钩子函数, 鼠标消息太多(譬如鼠标移动), 必须要有选择, 这里选择了鼠标左键按下}function MouseHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;begin if wParam = WM_LBUTTONDOWN then begin Flag:=true; MessageBeep(0); end; Result := CallNextHookEx(hook, nCode, wParam, lParam);end;{建立钩子}function SetHook: Boolean; stdcall;begin Flag:=false; hook := SetWindowsHookEx(WH_MOUSE, @MouseHook, HInstance, 0); Result := hook <> 0;end;{释放钩子}function DelHook: Boolean; stdcall;begin Result := UnhookWindowsHookEx(hook);end;{检查提供给Exe的全局变量是否值变动}function CheckFlag:Boolean;stdcall;begin Result:=False; if Flag=true then Result:=True;end;{恢复初始值}procedure SetFlag;stdcall;begin Flag:=False;end;{按 DLL 的要求输出函数}exports SetHook name 'SetHook', DelHook name 'DelHook', MouseHook name 'MouseHook', CheckFlag name 'CheckFlag', SetFlag name 'SetFlag'; //SetHook, DelHook, MouseHook; {如果不需要改名, 可以直接这样 exports}beginend.
注意: SetWindowsHookEx 的第一个参数 WH_MOUSE 说明这是个鼠标钩子; 第四个参数 0 说明是全局的.
鼠标钩子回调函数的格式在 这里
然后按 Ctrl+F9 编译, 在工程目录下会生成一个和工程同名的文件, 这里是: MyHook.dll.
第二步: 调用
新建工程后, 保存, 并把刚才制作的 MyHook.dll 复制到这个工程目录下;
然后添加两个按钮, 实现如下:
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; {DLL 中的函数声明} function SetHook: Boolean; stdcall; function DelHook: Boolean; stdcall; function CheckFlag: Boolean; stdcall; procedure SetFlag; stdcall; var Form1: TForm1;implementation{$R *.dfm}{DLL 中的函数实现, 也就是说明来自那里, 原来叫什么名}function SetHook; external 'MyHook.dll' name 'SetHook';function DelHook; external 'MyHook.dll' name 'DelHook';function CheckFlag; external 'MyHook.dll' name 'CheckFlag';procedure SetFlag; external 'MyHook.dll' name 'SetFlag';{建立钩子}procedure TForm1.Button1Click(Sender: TObject);begin SetHook;end;{销毁钩子}procedure TForm1.Button2Click(Sender: TObject);begin DelHook;end;procedure TForm1.tmr1Timer(Sender: TObject);begin tmr1.Enabled:=False; if CheckFlag=true then begin Memo1.Lines.Add('左键'); SetFlag; end; tmr1.Enabled:=True;end;end.
测试: 点击第一个按钮后, 钩子就启动了; 这是不管鼠标在哪点一下鼠标左键都会 “呯” 的一下; 点击第二个按钮可以收回钩子.
下面是动态调用的方法, 功能和上面完全一直:
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}{要先要定义和 DLL 中同样参数和返回值的的函数类型}type TDLLFun = function: Boolean; stdcall; {现在需要的 DLL 中的函数的格式都是这样, 定义一个就够了}var h: HWND; {声明一个 DLL 句柄} SetHook, DelHook: TDLLFun; {声明两个 TDLLFun 变量}{载入 DLL 并调用其函数}procedure TForm1.Button1Click(Sender: TObject);begin h := LoadLibrary('MyHook.dll'); {载入 DLL 并获取句柄} if h<>0 then begin SetHook := GetProcAddress(h, 'SetHook'); {让 SetHook 指向 DLL 中相应的函数} DelHook := GetProcAddress(h, 'DelHook'); {让 DelHook 指向 DLL 中相应的函数} end else ShowMessage('Err'); SetHook; {执行钩子建立函数, 这里的 SetHook 和它指向的函数是同名的, 也可以不同名}end;{销毁钩子, 并释放 DLL}procedure TForm1.Button2Click(Sender: TObject);begin DelHook; {执行钩子释放函数} FreeLibrary(h); {释放 DLL 资源}end;end.
0 0
- 检测全局鼠标动作
- 【CBM666 的全局检测鼠标移动】
- 检测鼠标指针的改变(全局) Delphi
- C#控制鼠标动作
- C#控制鼠标动作
- JavaScript鼠标按键动作
- 鼠标全局钩子
- 全局鼠标钩子
- C#全局鼠标钩子
- 鼠标键盘全局HOOK
- C# 鼠标全局钩子
- 鼠标全局钩子
- WGestures全局鼠标手势
- 关于鼠标的几个动作
- [转]C#控制鼠标动作
- jquery模拟鼠标点击动作
- jquery模拟鼠标点击动作
- 鼠标动作监听类MouseListener
- Android拍照并显示
- 异步操作的一个小案例,在h1中加入一个文本内容(GET请求)
- 第21节:Scala文件和xml操作(上)
- HAUTOJ G题
- 分而治之(D&C)
- 检测全局鼠标动作
- opencv显示大图--利用鼠标在固定窗口内显示大图
- LeetCode (开始)
- Android全套动画使用技巧
- CoordinatorLayout的使用如此简单
- JWS的一次排错经历
- Android内核的编译和调试
- LIBSVM安装及SVM介绍
- LightOJ