Реагировать на изменение раскладки клавиатуры

[Rusl92]

у меня есть компонент xKeyHook
Я реагирую на нажатие клавиш, но есть один нюанс

procedure TForm1.xKeyHook1KeyDown(Sender: HWND; var Key: Integer);
begin

end;

я беру отсюда key и записываю в файл

И вот, допустим, у меня такие результаты

privet
в файле: 1 2 3

зкшмуе // это то же самое (privet), но на русской раскладке
в файле: 1 2 3

как реагировать на изменение раскладки клавы.
потому что код передается один и тот же....
Я зная раскладку клавиш не трудно будет доделать
Заранее большое спс!

[maladoy]

как узнать раскладку клавиатуры

 if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = 67699721 then
  //раскладка английская
else
  //раскладка НЕанглийская, например 68748313 соответствует русской

как ее изменить

//На русский
procedure TForm1.Button1Click(Sender: TObject);
var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);
end;

//На английский
procedure TForm1.Button2Click(Sender: TObject);
var
  Layout: array[0.. KL_NAMELENGTH] of char;
begin
  LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);
end;

[Rusl92]

а как узнать изменилась ли она?
то есть вот когда изменится - вот это событие?

[mihali4]

Нужно ловить сообщение WM_INPUTLANGCHANGEREQUEST