HOOK鼠标滚轮滚动的DLL
帖个HOOK鼠标滚轮滚动的DLL。（我很菜，大家板砖少点，谢谢合作！！）//====================================
library hookprj;
uses
SysUtils,
Classes,
Unit1 in 'Unit1.pas';
exports
EnableMsgHook,//只要把这两个函数输出就可以了，
DisableMsgHook;//
begin
end.
//====================================
//====================================
unit Unit1;
interface
uses
Windows,Messages;
var
HookHandle:HHOOK;//钩子的句柄值。
functionMsgHookProc(Code: Integer; WParam: Longint;Msg:Longint):LRESULT;stdcall;
//鼠标钩子的回调函数，即是用它来处理得到消息后要干什么。。
//nCode参数是Hook的标志，一般只关心小于0时。
//WParam参数表示鼠标消息的类型
//LParam参数是一个指向TMOUSEHOOKSTRUCT结构的指针。结构包含了鼠标消息的状态，我只用了hwnd一个
//即鼠标消息要传递给的窗口句柄。
//返回值如果不是0的话windows就把这个消息丢掉，其它的程序就不会再收到这个消息了。
functionEnableMsgHook:Boolean;stdcall;export;
functionDisableMsgHook:Boolean;stdcall;export;//两个函数都是Boolean类型，成功都是返回True
implementation
functionMsgHookProc(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;
functionEnableMsgHook:Boolean;stdcall;export;
begin
ifHookHandle=0then//为了安全，必须判断一下再设置钩子。
Begin
//第三个参数的Hinstance在Delphi中有定义，用就可以了。第四个参数必须为0
HookHandle:=SetWindowsHookEx(WH_GETMESSAGE,@MsgHookProc,Hinstance,0);
Result:=True;
end
else
Result:=False;
end;
functionDisableMsgHook:Boolean;stdcall;export;
begin
ifHookHandle <>0then//如果有钩子就卸掉他。
begin
UnHookWindowsHookEx(HookHandle);
HookHandle:=0;
Result:=True;
end
else
Result:=False;
end;
end.
//====================================
接口函数是EnableMsgHook和,DisableMsgHook。怎么用，大家应该清楚吧，本人对DELPHI比较菜，有不好的地方望大家指出，改正！！！
[ 本帖最后由 Moodsky 于 2007-2-8 10:14 编辑 ]
页:
[1]