hktest.~dpr

来自「精彩编程百例51～75 其中有 cpu速度测试 检测声卡 查询内存信息 图像处理」· ~DPR 代码 · 共 23 行

// WH_KEYBOARD Hook Demo
// 1. Project | Compile 编译连结成 HKTest.DLL
// 2. 开启 HookDemo.DPR 测试
library HKTest;

uses
  HKProc in 'HKProc.pas';

exports
  EnableHotKeyHook,
  DisableHotKeyHook;

begin
  hNextHookProc := 0;
  // 以下这两列, 旨在确定 DLL UnLoad 时, 确定将 HOOK 解除
  //To keep the exit chain intact,
  // you need to save the current contents of ExitProc before
  //changing it to the address of your own exit procedure.
  procSaveExit := ExitProc;
  ExitProc := @HotKeyHookExit;
end.