Для того чтобы узнать текущий язык ввода на клавиатуре в Delphi
1) Кидаем на форму один Button и один Label
2) Создаем обработчик событий OnClick на кнопке и в коде пописываем:
|
1 2 3 4 5 6 7 8 9 |
var Layout:array [0..KL_NAMELENGTH]of char; begin GetKeyboardLayoutName(Layout); if Layout='00000409' then Label1.Caption:='En'; if Layout='00000419' then Label1.Caption:='Rus'; end; |
Теперь если вы будете переключить раскладку и нажимать следом на кнопку в нашей программе, то в компоненте Label будет отображаться текущее состояние языка.