callhook.dpr

来自「这是壹个delphi的例子大家可以来看看啊 对初学者很有帮助啊」· DPR 代码 · 共 18 行

program  Main;                                

uses  windows;
               
var Msg : tMsg;

procedure  HookOn  ; stdcall; external '..\Dll\Hook.dll';
procedure  HookOff ; stdcall; external '..\Dll\Hook.dll';


//==================主程序=================
begin
  HookOn;
  while GetMessage(Msg, 0, 0, 0) do  ;
  HookOff;
end.