关于键盘钩子的问题，请教大家

最新推荐文章于 2021-01-13 22:31:24 发布

aibi9196

最新推荐文章于 2021-01-13 22:31:24 发布

阅读量95

点赞数

原文链接：http://www.cnblogs.com/delphi2007/archive/2008/11/27/1342623.html

版权

关于键盘钩子的问题，请教大家 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiAPI/html/delphi_20061122084602187.html
function StartHookMouse:boolean;
const
WH_MOUSE_LL = 14;
begin
if hhkLowLevelMouse = 0 then hhkLowLevelMouse := SetWindowsHookEx(WH_MOUSE_LL, LowlevelMouseProc, HInstance, 0);
//if hhkLowLevelMouse = 0 then hhkLowLevelMouse := SetWindowsHook(WH_MOUSE_LL, @LowlevelMouseProc);
result := (hhkLowLevelMouse <> 0) ;
end;

这段放在自己的程序里面，没有放在dll里面，在xp里面可以做到全局钩子，但是在
98中钩子无效，何解？？？？
请问高手

kernel32.dll?

function StartHookMouse:boolean;
begin
if hhkLowLevelMouse = 0 then hhkLowLevelMouse := SetWindowsHookEx(WH_MOUSE_LL, LowlevelMouseProc, HInstance, 0);
result := (hhkLowLevelMouse <> 0) ;
end;

const
WH_KEYBOARD_LL = 13;
WH_MOUSE_LL = 14;

98中钩子无效！

转载于:https://www.cnblogs.com/delphi2007/archive/2008/11/27/1342623.html