은종범 wrote:

> 안녕하십니까?..

> 키보드 시스템 훅에 대해서 알고 싶은데요...

> 특정 키 값을 가지고 와서 다른 작업을 할 수 있도록 하고 싶은데...

> 예로 esc키를 치면 어떤 프로그램을 실행시킨다거나 하든 거요...

> 그럼 고수님들의 한수를 부탁 드립니다...

> 감사 합니다...

>

어떻게 하다 보니 찾았습니다...

소스는 민성기님꺼를 잠깐(슬쩍)....



{ 키보드 갈구리질 }

function MyKBHook(Code : Integer; wParam : WPARAM; lParam : LPARAM)

: LongInt; stdcall;

var

s1 : String;

begin

{ 파일에 저장된 훅핸들을 읽어온다. }

if HKbHook = 0 then

ReadData;



If wParam = 27 then begin<------------------------------------이부분....

Result := CallNextHookEx(HKbHook, Code, wParam, lParam);

UnhookWindowsHookEx(HKbHook);

MessageBox(0,'키보드 훅해제','HookKB',0);

Exit;

end;

{ Code값이 0보다 크거나 같을때만 }

if Code >= 0 then

begin

{ 키보드를 몽땅 안눌리게 하자. }

{ 다음 훅체인이 불리지 않도록 하면 끝~! }

Result := Integer(True);

Exit;

end;

Result := CallNextHookEx(

HKbHook, Code, wParam, lParam);

end;



에서 wparam에 값을 가지고 왔지요....

소스에서는 virtual key 값이었는데 interger값으로 사용을 해야 되던군요...

(예 엔터(VK_ESCAPE) 이면 27로)



다 아시는 건가요.....



그런데 문제가 다시 발생했는데요...

프로그램을 실행시키고 소스를 보고 실행했던 프로그램으로 돌아오면 HOOK가 풀립니다.

왜 일까요...

(HOOK관련 프로그램을 실행을 시켜고 HOOK을 걸고 IE에 가면 HOOK이 적용이 되지 않네요...)



고수님들의 좋은 말씀 부탁 드립니다....

꾸벅....