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中钩子无效,何解????
请问高手
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中钩子无效,何解????
请问高手
解决方案 »
- 这一段代码用Delphi如何实现?
- 高手进来!!
- OLE中打开Excel为何独占对象呢?
- 备份问题~~~~~~~~~~~~~~~~~
- 请问:我在一个panel面板上放了一个TImage派生的一个组件,在该组件代码中我应该怎样才能得到panel面板的背景,又怎样才能使组件的背景透
- 一个关于数据显示和删除的问题,请各位大侠照顾一下第一次发贴的新手好吗?^_^
- 能否实现listview控件中设置固定背景,即不随listview控件的滚动而滚动?
- 关于InstallShield的问题
- 怎么样屏蔽TabControl控件的任意一个标签页??
- 怪!!!!老鱼,快来救命
- DevCo 正式 更名为 CodeGear...(转自李维)
- 小弟新手 请教大虾 could not convert variant of type (NULL) into type (String)如何处理
begin
if hhkLowLevelMouse = 0 then hhkLowLevelMouse := SetWindowsHookEx(WH_MOUSE_LL, LowlevelMouseProc, HInstance, 0);
result := (hhkLowLevelMouse <> 0) ;
end;
WH_KEYBOARD_LL = 13;
WH_MOUSE_LL = 14;