Поток и хук на клавиатуру.

[ugorek]

Здравствуйте. Я нуб. У меня была задача получать данные о нажатой клавиши в любой момент, и изначально я использовал GetKeyState() и было нормально. Но потом, с ростом программы, когда она начинала заниматься чем-то другим, в этот момент было проблематично получить данные о нажатой клавише. Поэтому решил перенести код в поток, и это помогло.

Но появилась ещё одна проблема (и задача) - если нажимать клавиши очень быстро, то некоторые из них не улавливались моим кодом. Мне нужно было не упустить ни одного нажатия! Поэтому заменил GetKeyState на хук, и это решило проблему с пропуском нажатий, но вернуло первую проблему - если программа занята чем-то другим, хук не срабатывает.

И здесь мои навыки заканчиваются, я не могу сделать так, чтобы хук работал в потоке. Помогите мне решить две мои задачи :с

Вот код, на котором я остановился:

type
  TMyThread = class(TThread)
   protected
    procedure Execute; override;
   end;

procedure TMyThread.Execute;
 begin
  inherited;
  while True do
   begin
    //Код в потоке
   end;
 end;

var
 Thread1:TMyThread;

type
  PKBDLLHookStruct=^TKBDLLHookStruct;
  TKBDLLHookStruct = packed record
   vkCode,scanCode,flags,time:Cardinal;
   dwExtraInfo:PCardinal;
  end;

function HookProc(nCode,wParam,lParam:Integer):LRESULT; stdcall;
 begin
  if nCode=HC_ACTION then
   begin
    with PKBDLLHookStruct(lParam)^ do
     begin
      //Делаю что-то, когда нажалась клавиша vkCode
     end;
    end;
  Result:=CallNextHookEx(0,nCode,wParam,lParam);
 end;

var
 Hook:HHOOK;

<в начале запуска моей программы>
 Thread1:=TMyThread.Create(True);
 Thread1.FreeOnTerminate:=False;
 Thread1.Priority:=tpHighest;
 Thread1.Resume;
 Hook:=SetWindowsHookEx(WH_KEYBOARD_LL,@HookProc,HInstance,0);