dll程序如下：
library Mouse_HookDLL;
uses
SysUtils,
Windows,
Messages,
Classes;
const WH_MOUSE_LL=14;
{$R *.res}
var
NextHook : HHook;
CallHandle : HWND;
MessageID : Word;
function HookProc(code:Integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;
begin
Result := 0;
if code < 0 then
Result := CallNextHookEx(NextHook,code,wParam,lParam);
case wParam of
WM_LBUTTONDOWN:
begin
end;
WM_LBUTTONUP:
begin
end;
WM_LBUTTONDBLCLK:
begin
SendMessage(CallHandle,MessageID,wParam,Integer(@pMouseHookStruct(lParam)^));
end;
WM_RBUTTONDOWN:
begin
end;
WM_RBUTTONUP:
begin
SendMessage(CallHandle,MessageID,wParam,Integer(@pMouseHookStruct(lParam)^));
end;
WM_NCMOUSEMOVE,WM_MOUSEMOVE:
begin
end;
end;
end;
//启动钩子
function StartHook(MsgID:Word):Bool;stdcall;
begin
Result := False;
if NextHook <> 0 then
Exit;
MessageID := MsgID;
NextHook := SetWindowsHookEx(WH_MOUSE_LL,@HookProc,HInstance,0);
Result := NextHook <> 0;
end;
//脱钩
function StopHook:Bool;stdcall;
begin
if NextHook <> 0 then
begin
UnHookWindowsHookEx(NextHook);
NextHook := 0;
end;
Result := NextHook = 0;
end;
//传递调用者句柄
procedure SetCallHandle(sender:HWND);stdcall;
begin
CallHandle := sender;
NextHook := 0;
end;
exports
StartHook name 'StartHook',
StopHook name 'StopHook',
SetCallHandle name 'SetCallHandle';
begin
end.
