- program Main;
- uses windows;
- var Msg : tMsg;
- procedure HookOn ; stdcall; external '..DllHook.dll';
- procedure HookOff ; stdcall; external '..DllHook.dll';
- //==================主程序=================
- begin
- HookOn;
- while GetMessage(Msg, 0, 0, 0) do ;
- HookOff;
- end.