Хук

[Умед]

Есть хук:

----------------

library HookDll;


uses
  SysUtils,
  Classes,windows;

var CurrentHook: HHook;
function GlobalKeyBoardHook(code: integer; wParam: word; lParam: longword): longword; stdcall;
 var
   Inp: TInput;
   I: Integer;
begin

    if code<0 then begin
       GlobalKeyBoardHook:=CallNextHookEx(CurrentHook,code,wParam,lparam);
       Exit;
    end;
    if wParam=VK_INSERT then
		begin
     Inp.Itype := INPUT_KEYBOARD;
     Inp.ki.wVk := Ord(UpCase('A'));
     Inp.ki.dwFlags := 0;
     SendInput(1, Inp, SizeOf(Inp));
    end;


    CallNextHookEx(CurrentHook,code,wParam,lparam);
    GlobalKeyBoardHook:=0;
    Exit;
end;


procedure SetHookHandle(HookHandle: HHook); stdcall;
begin
    CurrentHook:=HookHandle;

end;

exports GlobalKeyBoardHook index 1,
        SetHookHandle index 2;
begin

end.

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

[Stilet]

Может быть потому что хук учитывает не жмак поклавиши, а нажатие-отжатие, воти получается: Нажал ты клавишу - сработал хук, отжал ее - опять сработал (это предположение)

[Impuls1989]

Дело в том, что GlobalKeyBoardHook выполняется два раза: при нажатии и при отпускании клавиши... Я исправлял так:
var tmp:longword;
....
tmp:=lParam shr 30;
if ((tmp and 1)=0) then //Сработает при нажатии на кнопку.
begin
//Ваш код
end;

Если написать if ((tmp and 1)=1) then - сработает при отпускании кнопки

[Умед]

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

Дело в том, что GlobalKeyBoardHook выполняется два раза: при нажатии и при отпускании клавиши... Я исправлял так:
var tmp:longword;
....
tmp:=lParam shr 30;
if ((tmp and 1)=0) then //Сработает при нажатии на кнопку.
begin
//Ваш код
end;

Если написать if ((tmp and 1)=1) then - сработает при отпускании кнопки

Спасибо за ответ!