getkey.~dpr

来自「屏幕取词的小例子 是Delphi下深入Windows核心编程 的一个经典例子」· ~DPR 代码 · 共 15 行

library Getkey;
uses
  SysUtils,
  Windows,
  UnitHookDLL in 'UnitHookDLL.pas';

exports
OpenGetKeyHook,
CloseGetKeyHook;

begin
   DLLproc := @DLLMain;
   DllMain(DLL_PROCESS_ATTACH);
end.