谁能解释一下HHook是什么？

Question

请看下列代码？能解释一下具体意思吗？
var
  MsgLen:Integer=0;
  MsgCou:Integer=0;
  HookHandle:HHook=0;
  IsHook:Boolean=False;
  
procedure StopHook();
begin
  unhookwindowshookex(hookhandle);
  hookhandle:=0;
end;
function hook(code:integer;wparam,lparam:longint):longint;stdcall;
begin
  case code of
  hc_skip:
      begin
        inc(MsgCou);
        inc(msgevent);
        if msgcou>=MsgLen then stophook();
        Result:=0;
      end;
  hc_getnext:
      begin
        peventmsg(lparam)^:=msgevent^;
        Result:=0;
      end;
  else
      begin
        Result:=callnexthookex(hookhandle,code,wparam,lparam);
      end;
  end;
end;
procedure StartHook();
begin
  if ((hookhandle=0) and (msglen>0)) then
  begin
     msgevent:=@inbuff[3];
     hookhandle:=setwindowshookex(wh_journalplayback,hook,hinstance,0);
  end;
end;

Answer 1

全局键盘鼠标Hook具体自己看书或Google，随时有答案的http://lysoft.7u7.net