Хук на изменение раскладки клавиатуры

[Gerzs]

Здравствуйте, вот пытаюсь поставить такой хук, для этого написал библиотеку, но почему-то не вызывается SysMsgProc, подскажите, пожалуйста, где ошибка.

library Hook;

uses
  Windows,
  Messages;

var
  LangHook: HHook = 0;

  function SysMsgProc(code:integer; wParam, lParam: DWORD):DWORD;stdcall;
  begin
   MessageBox(0,'You in RunStopHook SysMsgProc', 'Message by Hook library', 0);
   CallNextHookEx(LangHook, Code, wParam, lParam);
   if code=HC_ACTION then
   begin
    MessageBox(0,'Lang is Change', 'Message by Hook library', IdOk);
   end;
  end;

  procedure RunStopHook(State: Boolean) export; stdcall;
  begin
   if State then
   begin
    LangHook:=SetWindowsHookEx(WM_INPUTLANGCHANGE, @SysMsgProc, HInstance, 0);
    MessageBox(0,'You in RunStopHook procedure', 'Message by Hook library', 0);
   end
   else
    begin
     UnhookWindowsHookEx(LangHook);
     LangHook:=0;
    end;
  end;

  exports RunStopHook index 1;

begin
end.

[Somebody]

SetWindowsHookEx(WM_INPUTLANGCHANGE , @SysMsgProc, HInstance, 0);

WM_*? Тут константы WH_* - наверное, надо ловить WH_SHELL с кодом HSHELL_LANGUAGE.