Раскладка клавиатуры

[SERG1980]

Как отловить изменение раскладки клавы (ru/en или en/ru)

[НЕ_АЙС]

procedure TForm1.Timer1Timer(Sender: TObject);
var Layout: array [0.. KL_NAMELENGTH] of char;
begin 
GetKeyboardLayoutName(Layout); 
if Layout = '00000409' then label1.caption:='en' 
else label1.caption:='ru';
end;
А вообще правильнее было отлавливать через хуки сообщение
WM_INPUTLANGCHANGEREQUEST

[SERG1980]

Cпасибо НЕ_АЙС, а через хуки не знаешь как это сделать?

[Квэнди]

WM_INPUTLANGCHANGEREQUEST

[Gerzs]

Как правильно этот хук поставить? Побывал так, что-то не работает…

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_INPUTLANGCHANGEREQUEST, @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.