Как узнать текущую раскладку клавиатуры в Delphi


Для того чтобы узнать текущий язык ввода на клавиатуре в Delphi

1) Кидаем на форму один Button и один Label

2) Создаем обработчик событий OnClick на кнопке и в коде пописываем:

Теперь если вы будете переключить раскладку и нажимать следом на кнопку в нашей программе, то в компоненте Label будет отображаться текущее состояние языка.