Неработает перехват событий от клавиатуры

[AndruXaII]

Вобщем есть програмка которая по нажатию клавишы F12 в любом активном приложении должна выполнять некие действия.
Dll и программа успешно компилятся, ошыбок ен выдает, но по нажатию F12 ничего не происходит, если ктонибуть может указать ан ошыбку или просто подсказать в каком направлении капать, зарание большое спасибо.

Собственно код dll:

library SendKey;

uses
  WinTypes,
  WinProcs,
  Messages;      

const
    wm_KlikONOFF_event = wm_User +133;
  var
    HookHandle: hHook = 0;
    SaveExitProc: Pointer;

  function Key_Hook(Code: Integer; wParam: Word; lParam: Longint):LongInt; stdcall; export;
   var
     H:HWND;
   begin
     if Code>=0 then
       begin
        if  (wParam = VK_F12)  and (lParam and $40000000 =0) then
         begin
           H:=FindWindow('TForm1','Feldsher');
           SendMessage(H, wm_KlikONOFF_event,0,0);
         end;
        Result:=0;
       end
      else
       Result:=CallNextHookEx(HookHandle, Code, wParam, lParam);
   end;

  procedure LocalExitProc; far;
   begin
     if HookHandle<>0 then
      begin
        UnhookWindowsHookEx(HookHandle);
        ExitProc:= SaveExitProc;
      end;
   end;

  exports Key_Hook;
{$R *.res}

begin
  HookHandle := SetWindowsHookEx(wh_Keyboard, @Key_Hook, hInstance, 0);
  if HookHandle =0 then
    MessageBox(0,'Íåóäàëîñü ïîñòàâèòü ëîâóøêó','Error',MB_OK)
   else
   begin
     SaveExitProc:=ExitProc;
     ExitProc:=@LocalExitProc;
   end;

end.

Код самой программы:

unit kl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const
  wm_KlikONOFF_Event = wm_User + 133;
type
  TForm1 = class(TForm)
    lbl1: TLabel;
    edt1: TEdit;
    procedure Create(Sender: TObject);
  private
    { Private declarations }
    Procedure wm_actFeldsher(var M: TMessage); message wm_KlikONOFF_event;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  P:Pointer;

implementation

{$R *.dfm}

function Key_Hook: LongInt; far; external 'SendKey';

procedure TForm1.Create(Sender: TObject);
begin
  P:=@Key_Hook;
end;

procedure TForm1.wm_actFeldsher(var M: TMessage);
 begin
   edt1.Text:='1';
 end;

end.

свойство Caption формы = Feldsher

[Somebody]

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

function Key_Hook: LongInt; far; external 'SendKey';

Как Key_Hook используется в основной проге? Если она где-то непосредственно вызывается, то тут не хватает stdcall.

[AndruXaII]

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

Как Key_Hook используется в основной проге? Если она где-то непосредственно вызывается, то тут не хватает stdcall.

Помогло, Спасибо

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

Как минимум нельзя ставить хук при загрузке dll, потому что после установки хука она будет грузиться в другие процессы, в каждом из которых будет выполняться эта инициализация dll.

М, ну я собственно этого и добивался, мне нужно чтобы при нажатии клавишы F12 в любом окне, программа выполняла некие действия, для этого ловушка ставится во всех процесах. Или я чтото не так понял?

[Somebody]

begin
  HookHandle := SetWindowsHookEx(wh_Keyboard, @Key_Hook, hInstance, 0);
...
end.

выполняется при загрузке в каждый процесс - можно добавить Beep и послушать. Надо бы экспортировать отдельную функцию, которая ставит хук, и вызывать её.

[AndruXaII]

Я видимо слишком чайник и чегото не понимаю.

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

Зарание благодарен.