Привожу пример на Delphi, как можно отловить изменение, смену раскладки клавиатуры
var
Layout: array [0.. KL_NAMELENGTH] of char;
begin
GetKeyboardLayoutName(Layout);
if Layout = '00000409' then
label1.caption:='en'
else
label1.caption:='ru';
end;
Layout: array [0.. KL_NAMELENGTH] of char;
begin
GetKeyboardLayoutName(Layout);
if Layout = '00000409' then
label1.caption:='en'
else
label1.caption:='ru';
end;