从网上下载了两个dll,一个是键盘钩子,一个是鼠标钩子,有源代码,有test工程代码.我想把这两个dll合并在一起,把代码做了一些修改编译成功;后来发现,在挂钩的时候不能同时起作用,后挂的那个有用,前面挂的就没用了.在代码里面我是把键盘钩子放在后面的,也就是说,如果我只放在一个过程里面挂钩,只有键盘钩子有效;如果把两个钩子拆开放在两个过程里面,挂了一个另一个就无效了..就好象我的钩子在挂鼠标的时候就把键盘吞掉了,挂键盘的时候就把鼠标给吞掉了一样.....但是按道理应该不会这样的,我的函数设了返回值,其他的窗口都能接收到键盘鼠标消息,说明钩子没有吞掉消息...
我想请人帮我大致分析一下,只要思路,不用帮我看代码..应该怎样做才能让两个钩子都有效呢?
另:这两个dll用到了内存映射文件来共享数据,会不会是这里出了问题?难道必须要拆开?
我想请人帮我大致分析一下,只要思路,不用帮我看代码..应该怎样做才能让两个钩子都有效呢?
另:这两个dll用到了内存映射文件来共享数据,会不会是这里出了问题?难道必须要拆开?
Windows,
Messages;const
MappingFileName = '57D6A971_MMSounddDLL_442C0DB1';
MSGMOUSEMOVE: PChar = 'MSGMOUSEMOVE57D6A971-049B-45AF-A8CD-37E0B706E036';
MSGMOUSECLICK: PChar = 'MSGMOUSECLICK442C0DB1-3198-4C2B-A718-143F6E2D1760';
MSGKEYDOWN: PChar = 'MSGKEYDOWN57D6A971-049B-45AF-A8CD-37E0B706E037';
MSGKEYUP: PChar = 'MSGKEYUP442C0DB1-3198-4C2B-A718-143F6E2D1761';
type
TMappingMem = record
Handle: DWORD;
MsgID: DWORD;
MouseStruct: TMOUSEHOOKSTRUCT;
KeyCode: Integer;
end;
PMappingMem = ^TMappingMem;var
MSG_MOUSEMOVE: UINT;
MSG_MOUSECLICK: UINT;
MSG_KEYDOWN: UINT;
MSG_KEYUP: UINT;
hMappingFile: THandle;
pMapMem: PMappingMem;
mhook: HHook;
fblocked: BOOL = True; khook: HHook;
//CriticalSection: TRTLCriticalSection;function MouseHookProc(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall
begin
if fblocked then
Result := 0
else
Result := 0; if iCode < 0 then
CallNextHookEx(mhook, iCode, wParam, lParam); case wParam of
WM_MOUSEMOVE, WM_NCMouseMove:
begin
pMapMem^.MsgID := MSG_MOUSEMOVE;
pMapMem^.MouseStruct := pMOUSEHOOKSTRUCT(lparam)^;
SendMessage(pMapMem^.Handle, pMapMem^.MsgID, 0, 0); end;
WM_LBUTTONDOWN, WM_NCLBUTTONDOWN:
begin
pMapMem^.KeyCode := wParam;
pMapMem^.MsgID := MSG_MOUSECLICK;
pMapMem^.MouseStruct := pMOUSEHOOKSTRUCT(lparam)^;
SendMessage(pMapMem^.Handle, pMapMem^.MsgID, 0, 0);
end;
WM_LBUTTONUP:
begin
end;
WM_LBUTTONDBLCLK:
begin
end;
WM_RBUTTONDOWN:
begin
pMapMem^.KeyCode := wParam;
pMapMem^.MsgID := MSG_MOUSECLICK;
pMapMem^.MouseStruct := pMOUSEHOOKSTRUCT(lparam)^;
SendMessage(pMapMem^.Handle, pMapMem^.MsgID, 0, 0);
end;
WM_RBUTTONUP:
begin
end;
WM_RBUTTONDBLCLK:
begin
end;
WM_MBUTTONDOWN:
begin
end;
WM_MBUTTONUP:
begin
end;
WM_MBUTTONDBLCLK:
begin
end;
end;end;
function EnableMouseHook(hWindow: HWND; Blocked: BOOL): BOOL; stdcall;
begin
Result := False;
if mhook <> 0 then
Exit;
pMapMem^.Handle := hWindow;
fblocked := Blocked;
mhook := SetWindowsHookEx(WH_MOUSE, MouseHookProc, HInstance, 0);
Result := mhook <> 0;
end;
function GetKey: integer; export;
begin
Result := pMapMem^.KeyCode;
end;function DisableMouseHook: BOOL; stdcall;
begin
if mhook <> 0 then
begin
UnhookWindowshookEx(mhook);
mhook := 0;
end;
Result := mhook = 0;
end;
function KeyboardHookProc(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall
begin
Result := 0; if iCode < 0 then
Result := CallNextHookEx(khook, iCode, wParam, lParam); if iCode = HC_ACTION then
begin
pMapMem^.KeyCode := wParam;
case ((lParam shr 30) and $F) of
0: // Key down
begin
pMapMem^.MsgID := MSG_KEYDOWN;
SendMessage(pMapMem^.Handle, pMapMem^.MsgID, 0, 0);
end;
1: // key up
begin
pMapMem^.MsgID := MSG_KEYUP;
SendMessage(pMapMem^.Handle, pMapMem^.MsgID, 0, 0);
end;
end;
end;
end;function EnableKeyboardHook(hWindow: HWND): BOOL; stdcall;
begin
Result := False;
if khook <> 0 then
Exit;
pMapMem^.Handle := hWindow;
khook := SetWindowsHookEx(WH_KEYBOARD, KeyboardHookProc, HInstance, 0);
Result := khook <> 0;
end;function DisableKeyboardHook: BOOL; stdcall;
begin
if khook <> 0 then
begin
UnhookWindowshookEx(khook);
khook := 0;
end;
Result := khook = 0;
end;procedure DllMain(dwReason: DWORD);
begin
case dwReason of
DLL_PROCESS_ATTACH:
begin
//InitializeCriticalSection(CriticalSection);
hMappingFile := OpenFileMapping(FILE_MAP_WRITE, False, MappingFileName);
if hMappingFile = 0 then
begin
hMappingFile := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE,
0, SizeOf(TMappingMem), MappingFileName);
end;
if hMappingFile = 0 then
MessageBox(0, 'cannot create share memory!', 'Error', MB_OK or MB_ICONERROR); pMapMem := MapViewOfFile(hMappingFile, FILE_MAP_WRITE or FILE_MAP_READ,
0, 0, 0);
if pMapMem = nil then
begin
CloseHandle(hMappingFile);
MessageBox(0, 'cannot map share memory!', 'Error', MB_OK or MB_ICONERROR);
end;
mhook := 0;
khook := 0;
MSG_MOUSEMOVE := RegisterWindowMessage(MSGMOUSEMOVE);
MSG_MOUSECLICK := RegisterWindowMessage(MSGMOUSECLICK);
MSG_KEYDOWN := RegisterWindowMessage(MSGKEYDOWN);
MSG_KEYUP := RegisterWindowMessage(MSGKEYUP);
end;
DLL_PROCESS_DETACH:
begin
UnMapViewOfFile(pMapMem);
CloseHandle(hMappingFile);
if mhook <> 0 then
DisableMouseHook;
//DeleteCriticalSection(CriticalSection);
if khook <> 0 then
DisableKeyboardHook;
//DeleteCriticalSection(CriticalSection);
end;
DLL_THREAD_ATTACH:
begin
end;
DLL_THREAD_DETACH:
begin
end;
end;
end;exports
EnableMouseHook,
DisableMouseHook,
GetKey,
EnableKeyboardHook,
DisableKeyboardHook;
begin
DisableThreadLibraryCalls(HInstance);
DLLProc := @DLLMain;
DLLMain(DLL_PROCESS_ATTACH);
end.
我怀疑是
khook: HHook;
mhook: HHook;这个地方好象只能存在其中之一,不能并存,是不是要用数据共享?