후킹을 하나 해야 하는데

WH_KEYBOARD 후킹함수를 이용중입니다.



이때 발생되는 메세지를 다른곳에도 뿌려주여야 하는게 일인데

한글이 문제입니다.



후킹함수는 다음과 같습니다. (받은 메세지를 키보드 메세지대로 메모장에 뿌리는거지요)



function KeyboardHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LResult;

var

had:integer;

begin



if nCode > -1 then

begin

had:=findwindow(nil,'Keyboard Hook') ;

had:=findwindowex(had,0,'TMemo',nil) ;



postmessage(had,wm_char,wparam,lparam) ;

result:=0 ;

end

else

Result := CallNextHookEx(KeyHook, nCode, wParam, lParam);



END;



헌데 이놈을 쓰니까 메모장에는 한글이 않써지고 무조건

키보드 친놈이 써져요.

(한글상태에서 키보드 'A'를 치면 'ㅁ' 이 않서지고 메모장에는

딱 키보드 친대로 'A'가 써져요 )



어쩌면 좋지요 ?