[Raskolnikov]

Отлично, вроде все работает. Суть в том, что в основную программу надо передать код нажатой клавиши. Ловушку я поставил на WH_GETMESSAGE и функцию перехвата сделал такой:

Код:

function CallWndProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  Msg: TMsg;
begin
  if nCode= HC_ACTION then
  begin
    Msg:= TMsg(Pointer(LParam)^);
    if Msg.message = WM_KEYDOWN then
      PostMessage(GlobalData^.TargetWnd, GlobalData^.MessageWnd, Msg.wParam, lParam);
  end;
  Result:=CallNextHookEx(0, nCode, wParam, lParam);
end;

В основной программе (EXE) такой код:

Код:

const
  CM_HOOK = WM_USER + 1;

type
  TForm1 = class(TForm)
....
  private
    { Private declarations }
    procedure CMHook(var Msg: TMessage); message CM_HOOK;
  public
  end;

procedure TForm1.CMHook(var Msg: TMessage);
begin
  {Обрабатываем нажатие клавиши с кодом Msg.WParam}
end;

//Установка ловушки:
SetHook(Handle, CM_HOOK);

Я правильно поступил?