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;
Статья Как отловить изменение раскладки клавиатуры раздела ОС и Железо Язык может быть полезна для разработчиков на Delphi и FreePascal.
