Клавиатурный хук, вывод клавиши два раза.

[Winexcel]

Наткнулся на такую проблему, если фокус ввода стоит в каком либо поле, то в memo символ записывается два раза, как решить проблему?
Обработчик:

var SC, VK: integer;
		buf: Char;
		KS: TKeyboardState;
		MyHKL: HKL;
begin
inherited ;
	if Msg.Msg = HookMsg then
		begin
			MyHKL:=GetKeyboardLayout(msg.LParam);
			SC:=MapVirtualKeyEx(Msg.WParam,MAPVK_VK_TO_VSC,MyHKL);
			GetKeyboardState(KS);
			ToUnicodeEx(Msg.WParam,SC,KS,@buf,sizeof(buf),0,MyHKL);
			Memo1.Text:=Memo1.Text+buf;
			MyHKL:=0;
		End;

Сам хук:

function KeyboardProc(code: integer; wParam: word; lParam: longint) : longint; stdcall;
var Wnd:HWND;
Begin
  if code < 0 then
    Result:= CallNextHookEx(CurHook, Code, wParam, lParam)
  else
    begin
      if Byte(LParam shr 24)<$80 then
        begin
          Wnd:= FindWindow(nil, PChar('Перехватчик'));
          SendMessage(Wnd,HookMsg,wParam, GetCurrentThreadId);
          Result:=CallNextHookEx(CurHook, Code, wParam, lParam);
       end;
  end;
end;

[Человек_Борща]

Наткнулся на такую проблему, если фокус ввода стоит в каком либо поле, то в memo символ записывается два раза, как решить проблему?

А это не баг, это фича. Первый раз это нажатие, второй отпускание.

[Silver_S]

MSDN писывает два возможных значения code - HC_ACTION и HC_NOREMOVE; вы их не проверяете.

Проверка на отпускание/нажатие имеется, хотя было бы неплохо записать ее так, чтоб она была более очевидна.

[Winexcel]

Сообщение от Silver_S

MSDN писывает два возможных значения code - HC_ACTION и HC_NOREMOVE; вы их не проверяете.

Проверка на отпускание/нажатие имеется, хотя было бы неплохо записать ее так, чтоб она была более очевидна.

Огромное спасибо!