一个HOOK鼠标滚轮滚动的DLL

时间:2010-01-27 16:32:27  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读://beginend.//====================================//====================================unit Unit1;interfaceusesWindows,Messages;varHookHandle:  HHOOK;//钩子的句柄值。function  MsgHookProc(Code: Integer; WParam:...
  正文://====================================
library hookprj;
uses
SysUtils,
Classes,
Unit1 in 'Unit1.pas';
exports
EnableMsgHook,  //只要把这两个函数输出就可以了,
DisableMsgHook;//
begin
end.
//====================================


//====================================
unit Unit1;

interface

uses
Windows,Messages;

var
HookHandle:  HHOOK;//钩子的句柄值。

function  MsgHookProc(Code: Integer; WParam: Longint;Msg:Longint):  LRESULT;stdcall;
//鼠标钩子的回调函数,即是用它来处理得到消息后要干什么。。
//nCode参数是Hook的标志,一般只关心小于0时。
//WParam参数表示鼠标消息的类型
//LParam参数是一个指向  TMOUSEHOOKSTRUCT  结构的指针。结构包含了鼠标消息的状态,我只用了hwnd一个
//即鼠标消息要传递给的窗口句柄。
//返回值如果不是0的话windows就把这个消息丢掉,其它的程序就不会再收到这个消息了。

function  EnableMsgHook:Boolean;  stdcall;  export;
function  DisableMsgHook:Boolean;  stdcall;  export;//两个函数都是Boolean类型,成功都是返回True
implementation

function  MsgHookProc(Code: Integer; WParam: Longint;Msg:Longint):  LRESULT;stdcall;
begin
  if (Code = HC_ACTION) then
  if PMsg(Msg)^.Message = WM_MOUSEWHEEL then  //鼠标滚动
    begin
    if HIword(PMsg(Msg)^.wParam)=120 then        // 上滚
      begin
      //做你想做的。
            ShowWindow (pmsg(msg)^.hwnd,SW_MAXIMIZE );
    end;
    
    if HIWORD(PMsg(Msg)^.wParam)<>120 then        // 下滚
      begin
      //做你想做的。
            ShowWindow (pmsg(msg)^.hwnd,SW_RESTORE );    
    end;
    PMsg(Msg)^.Message := 0;
  end;
  Result :=CallNextHookEx(HookHandle, Code, WParam, Longint(@Msg));
end;

function  EnableMsgHook:Boolean;  stdcall;  export;
begin
  if  HookHandle  =  0  then  //为了安全,必须判断一下再设置钩子。
Begin
    //  第三个参数的Hinstance  在Delphi中有定义,用就可以了。第四个参数必须为0
HookHandle  :=  SetWindowsHookEx(WH_GETMESSAGE,@MsgHookProc,Hinstance,0);
    Result  :=  True;
  end
  else
  Result  :=  False;
end;

function  DisableMsgHook:Boolean;  stdcall;  export;
begin
  if  HookHandle <>  0  then  //如果有钩子就卸掉他。
begin
    UnHookWindowsHookEx(HookHandle);
    HookHandle  :=  0;
    Result  :=  True;
  end
  else
  Result  :=  False;
end;

end.

//====================================

接口函数是EnableMsgHook和,DisableMsgHook。怎么用,大家应该清楚吧,本人对DELPHI比较菜,有不好的地方望大家指出,改正!!! "一个HOOK鼠标滚轮滚动的DLL"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/2010-01-27/12530.html


关键字:

关于《一个HOOK鼠标滚轮滚动的DLL》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td