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);