用Delphi实现Windows的鼠标钩子函数
用Delphi实现Windows的鼠标钩子函数
Delphi是基于PASCAL语言的Windows编程工具,功能十分强大。然而在Delphi的帮助
文件中,对Windows API函数的说明沿袭了 VC 的格式,和VC一样,对很多API函数的用法
没有举例子详细说明,对一些深入系统内部的API函数更是语焉不详,给编程者带来不便。
笔者仅就在Windows编程中鼠标钩子函数(HOOK)的实现,举例作一说明。
鼠标钩子函数也可叫做鼠标消息过滤器,是一种回调(CALLBACK)函数,归
系统调用。如果用SetWindowsHook或SetWindowsHookEx安装了鼠标钩子函数的地址, 每
当在屏幕上移动鼠标时,系统便将控制权交给鼠标钩子函数,这样便使我们能够有机会在
鼠标钩子函数内部截获各种鼠标消息,在这些消息还没有送达应用程序队列之前,显示它
们,改变它们或直接传给下一个缺省鼠标钩子函数。注意,鼠标钩子函数截获的是系统级
消息,而不是单个应用程序队列内的窗口消息;系统发给每个应用程序队列的鼠标消息都
可以用鼠标钩子函数来截获。
VC的Spy和Delphi的WinSpy均安装了钩子函数用来截获各种系统级的消息,其中就
包括鼠标钩子函数,键盘钩子函数,窗口钩子函数等。我们可以通过安装鼠标钩子函数来
仿制一个自己的SPY,当鼠标移动时,我们立即获得系统(包括非抢先的Windows3.1和
抢先Windows95)的控制权,在鼠标钩子函数内部实时地截获鼠标消息,显示鼠标的位置
和状态以及鼠标下窗口的局柄,标题栏,窗口类,窗口过程地址等。当然也可象“英汉通”
和“金山词霸”一样在鼠标钩子函数内调用InvalidateRect(),InvalidateRgn()来获得屏
幕上鼠标下的单词。(屏幕抓字的详情请见笔者的《深入Windows内部探险》中国计算机报
1998年第81期 )。
主程序SPY及其动态连接库MOUSEDLL的原代码和详细注释如下:
{*****************************************************
FILE : MOUSEDLL.DPR mafeitao@371.net 1998/11/18
〉DLL : MOUSEDLL.DLL
EXPORT: sethook 用来安装鼠标钩子函数 mouseproc
unhook 解除对鼠标钩子函数 mouseproc的安装
mouseproc 鼠标钩子函数本身
*****************************************************}
library Mousedll;
uses
Mousep in 'MOUSEP.PAS' {Form1};
exports
sethook,
unhook,
mouseproc;
{$R *.RES}
begin
end.
{*************************************************************
file:Mousep.pas mafeitao@371.net
实现 setHook unHook mouseProc 3个输出函数
*************************************************************}
unit Mousep;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
{在DLL中也可有FORM型的变量}
type
TForm1 = class(TForm)
Label1: TLabel; {显示wParam}
Label2: TLabel; {显示lParam}
Label3: TLabel; {显示x,y}
Label4: TLabel; {显示hwnd}
Label5: TLabel; {显示window text}
Label6: TLabel;
Label7: TLabel; {显示window class}
private
{ Private declarations }
public
{ Public declarations }
end;
function sethook:bool;export;
function unhook:bool;export;
function mouseProc(code:integer;w:integer;l:longint):bool;export;
var
Form1: TForm1;
idhook:longint;
formok:bool;
implementation
{*********************************************************************
声明安装函数setWindowsHookEx(),
在Delphi中如果用函数setWindowsHook()则不需声明。
微软说函数setWindowsHook已在Windows3.1中废弃,为与Windows3.0兼容仍保留。
实际上该函数setWindowsHook在Windows3.1和Windows95中仍可使用。
{*********************************************************************}
function setwindowsHookEx(id:integer;proc:tfarproc;hinst,htask:thandle):
longint;far;external 'user';
{$R *.DFM}
{安装鼠标钩子函数mouseProc}
function sethook:bool;
var
hinst:thandle; {该动态连接库自己的模块局柄}
proc:tfarproc; {鼠标钩子函数mouseProc的地址}
begin
{在动态连接库中创建form1}
if formok=false then form1:=tform1.create(application) else exit;
formok:=true;{安装form1 后,设置formok,不许再安装form1}
{动态连接库的application指:调用动态连接库的主程序}
form1.show;
{不让用系统菜单来双击关闭Form1}
form1.BorderIcons:=form1.BorderIcons-[biSystemMenu];
hinst:=getModuleHandle('mousedll');
{得到mousedll.dll的模块局柄,即该动态连接库自己的模块局柄}
proc:=getProcAddress(hinst,'mouseProc');
idhook:=setWindowsHookEx(WH_MOUSE,proc,hinst,0);
{用WH_MOUSE参数安装鼠标钩子后,移动鼠标时,系统自动调用mouseProc钩子}
if idhook =0 then sethook:=false else sethook:=true;
end;
{解除鼠标钩子函数mouseProc的安装}
function unhook:bool;
begin
if formok=true then form1.free else exit; {检查form1是否已经关闭}
formok:=false;{关闭了form1,设置formok=0}
if idhook=0 then exit;
unhookWindowsHookEx(idhook);
unhook:=true;
end;
{mouseProc不由应用程序调用,而是在鼠标移动后,由系统调用}
function mouseProc(code:integer;w:integer;l:longint):bool;
var
p:^TMouseHookStruct;
poff:word;
pseg:word;
pmemo:pchar;
begin
if code<0 then begin
mouseProc:=true;
CallNextHookEx(idhook,0,w,l);
end;
if code=HC_NOREMOVE then form1.caption:='HC_NOREMOVE';
form1.caption:='mouse hook';
mouseProc:=false;
{显示系统传来的wParam参数,w是各种鼠标消息的标识符 }
form1.label1.caption:='wParam='+intTostr(w);
{显示系统传来的lParam参数,l是MOUSEHOOKSTRUCT结构的地址}
form1.label2.caption:='lParam='+intTostr(l);
poff:=loword(l); {得到l的低16位}
pseg:=hiword(l); {得到l的高16位}
p:=ptr(pseg,poff); {合成指向MOUSEHOOKSTRUCT结构的指针}
{显示屏幕上鼠标的X,Y坐标}
form1.label3.caption:='pt.x='+intTostr(p^.pt.x)
+' pt.y='+intTostr(p^.pt.y);
{显示屏幕上鼠标下的窗口局柄}
form1.label4.caption:='hwnd='+intTostr(P^.hwnd);
pmemo:=stralloc(20);
getWindowText(p^.hwnd,pmemo,20-1);
{显示鼠标下窗口的标题栏}
form1.label5.caption:=strPas(pmemo);
getClassName(p^.hwnd,pmemo,20-1);
{显示鼠标下窗口的类}
form1.label6.caption:=strPas(pmemo);
strDispose(pmemo);
end;
end.
主程序原代码如下:
{*******************************************
MAINTRY.DPR mafeitao@371.net
******************************************}
program Maintry;
uses
Forms,
Tryp in 'TRYP.PAS' {Form1};
{$R *.RES}
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
{*********************************************
TRYP.PAS mafeitao@371.net
********************************************}
unit Tryp;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton; { 安装setHook按钮}
Button2: TButton; { 解除 unHook按钮}
Label1: TLabel; {显示安装,解除是否成功}
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
function sethook:bool;far;external 'mousedll';
function unhook:bool;far;external 'mousedll';
{声明后自动加载模块mousedll.dll}
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
if sethook then label1.caption:='set hook ok'; {安装鼠标钩子函数}
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if unhook then label1.caption:='unhook ok'; {解除鼠标钩子函数}
end;
end.
用Delphi实现Windows的鼠标钩子函数相关推荐
- Delphi的windows剪切板操作函数
1. Clipbrd函数 function Clipboard: TClipboard;:若应用程序从未使用过剪贴板,则调用该函数形成新的剪贴板:若之前使用过剪贴板则返回使用过的剪贴板. 属性: As ...
- 小小黑客从鼠标钩子开始,密码看看看
引论 什么是黑客,不同于骇客,黑客一词来源于"Hacker",意思是劈,斩,对于黑客来说学会入侵和破解是提升自己和学习的过程,最重要的是编程能力,因为依赖大多数工具是体现不出自己水 ...
- 使用钩子函数[3] - 建立一个全局的鼠标钩子
分两步: 一.建立 DLL, 并在 DLL 实现钩子的设置.释放和钩子函数; 二.再建一个工程调用测试. 第一步: 做 DLL 先建立一个 DLL 工程, 自动初始的代码如下(去掉注释了): libr ...
- 使用钩子函数获取全部的鼠标消息和键盘消息
在编程过程中,有时候需要捕获一些消息,来进行操作,钩子一共有14种, WH_CALLWNDPROC 当调用SendMessage时 WH_CALLWNDPROCRET 当SendM ...
- 用钩子函数实现鼠标动作录制
在日常的一些操作中,会遇到重复的鼠标动作,类似按键精灵的软件就会成为比较好的助手.这里借助网上查找的资料自己实现了一个简单的鼠标动作录制软件. 完成界面如图: 录制 录制鼠标动作首先需要截获.钩子函数 ...
- Qt实现类似金山快译那种鼠标移到上方移动滑出的窗口(钩子函数)
首先说移到屏幕上方是在windows上操作的,所以必须用到windows自己的api,这里用到了Windows的钩子函数: HHOOK WINAPI SetWindowsHookEx( __in in ...
- WIN32汇编: 24.WINDOWS钩子函数
第二十四课 WINDOWS钩子函数 本课中我们将要学习WINDOWS钩子函数的使用方法.WINDOWS钩子函数的功能非常强大,有了它您可以探测其它进程并且改变其它进程的行为. 理论: WINDOWS的 ...
- 鼠标API函数(windows)
鼠标API函数(win) 得到当前鼠标指针的坐标:GetCursorPos函数 声明: public Type POINTAPI x As Long y As Long End Type Public ...
- 跨进程的 键盘钩子_Delphi下深入Windows编程之钩子原理一
我的理想是能够写出一个可以永不封号的游戏外G 嗯,所以需要学习Windows下编程,最近好不容易有一点点空余时间,抓紧时间读书[Delphi下深入Windows编程],人丑就该多读书 钩子原理 定义: ...
最新文章
- Linux C++与Python混合编程(g++生成链接库与python调用)
- void关键字的使用规则
- “tensorFromBlob”: 不是“at::DeprecatedTypeProperties”的成员
- IE8 Beta2 AJAX 的更新篇之XDR(二)(IE8 Beta2 Hand-on Lab-XDR)
- python每天学习30分钟系列
- 2020年快手校招JAVA岗笔试第二题
- 洛谷 P2888 [USACO07NOV]牛栏Cow Hurdles
- django登录连接html,Django——登录功能(连接mysql)
- 【转】胶片曝光时的排版!!!!!!!
- 网游服务器端设计思考:心跳设计
- 如何通过销售发票和日记帐事务信息进行销售交货与退货信息分析
- ## CSP 201412-2 Z字形扫描(C语言)(100分)
- qmessagebox 设置显示屏幕中间_windows7屏幕分辨率设置
- 基于SSM框架的简单图书管理系统
- 独立访客数UV、访问量PV和IP数的区别
- halcon 缺陷检测 表面凸点检测
- amc 美国数学竞赛能用计算机吗,关于AMC美国数学竞赛的QA
- fatal: unable to access ‘https://gitee.com/****/****.git/‘: The requested URL returned error
- 虚拟服务器伪静态怎么设置,虚拟主机怎么配置伪静态
- STM32F030使用硬件SPI与字库芯片通信