//HookLib.dpr library HookLib; { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function...
library HK uses SysUtils, Classes, hkproc in 'hkproc.pas'; //挂钩函数在文件中的定义 exports //DLL的输出函数 EnableHotKeyHook, DisableHotKeyHook; begin hNextHookProc := 0; Assign(f, 'c:/code.txt'); //将捕获的键值存入C盘的“code.txt”文件中 Reset(f); //初始化“code.txt”文件 pr...
DelphiHookUtils should now be listed inDelphinus package manager. Be sure to restart Delphi after installing via Delphinus otherwise the units may not be found in your test projects. Usage For more examples, refer to the ones under the Demos folder in the library. ...
注意: SetWindowsHookEx 的第一个参数 WH_MOUSE 说明这是个鼠标钩子; 第四个参数 0 说明是全局的.鼠标钩子回调函数的格式在 这里然后按 Ctrl+F9 编译, 在工程目录下会生成一个和工程同名的文件, 这里是: MyHook.dll. 第二步: 调用 新建工程后, 保存, 并把刚才制作的 MyHook.dll 复制到这个工程目录下;然后...
Delphi HOOK示例 本应用程序的Hook: unit UFrmMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btnClose: TButton; btnSetHook: TButton; btnSizeLongInt: TButton;...
end. 至此,unitHook.pas的代码OK了,其中加了详细的注释,在此就不再多做解释。现在切换到Dll的代码页, 写入以下代码: library hookdll; uses SysUtils, Windows, Classes, unitHook in 'unitHook.pas'; {$R *.res} const HOOK_MEM_FILENAME = 'tmp.hkt'; var hhk: HHOOK; Hook: array[0..3] of ...
library Hook; uses SysUtils, windows, Messages, APIHook in 'APIHook.pas'; type PData = ^TData; TData = record Hook: THandle; Hooked: Boolean; end; var DLLData: PData; {---} {过程名:HookProc {过程功能:HOOK过程 {过程参数:n
https://github.com/delphilite/DelphiHookUtils 基于LDE64 相对 BeaEngine 的优势非常明显,新 HookUtils 代码编译大约 10K 左右,相对武大哥“原版”,新版 HookUtils 主要修改: 参考wr960204 武稀松 的原始实现:https://code.google.com/p/delphi-hook-library ...
在动态链接库项目中,我们将添加一个Hook函数来拦截键盘和鼠标事件。 在Hook函数中,我们可以使用Windows API来获取键盘和鼠标的状态,以及记录和回放这些动作。 以下是一个简单的示例代码,演示如何创建基本的键盘鼠标动作记录与回放的功能: ```delphi library MouseKeyboardHook;...
这样当应用程序用GetMessage或PeekMessage函数从消息队列中读消息或有按键消息(WM_KEYDOWN或WM_KEYUP)要处理时,系统就要调用钩子过滤函数KeyHookProc处理键盘消息。4、 卸载钩子过滤函数。当钩子函数不再需要时,应调用UnHookWindowsHookProc卸载安装的钩子以释放系统资源。完整的程序清单如下Library KEYHOOK;uses Windows;...