분명히 시스템 훅은 WH_KEYBOARD 으로 걸었거든요..글구 잘동작하구요..
근데..
1. 마우스클릭 할때도 훅 프로시져가 도네용..왜그런지..
글구 WH_KEYBOARD 대신에 WH_MOUSE 으로 마우스 훅프로시져를 만들었는뎅..
2. 마우스 누르지도 않았는데 훅프로시져가 돌아용... 우째된거지좀 알려주세용..
OS : win2000
무슨 지식이 무족한걸까요..???
// 훅 걸기
function HookKB: Boolean;
begin
HookHandle := SetWindowsHookEx(WH_KEYBOARD, MyKbHook, HInstance, 0);
Result := Boolean(HookHandle);
WriteData;
end;
// 키보드 훅 프로시져
function MyKbHook(Code: integer; wParam: WPARAM; IParam: LPARAM): LongInt; stdcall;
begin
if HookHandle = 0 then
ReadData;
if Code >= 0 then begin
Result := integer(True);
ShowMessage('훅');
end;
Result := CallNextHookEx(HookHandle, Code, wParam, Iparam);
end;