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

Пользователь

от lilla.herman , в категории: Другие , 7 месяцев назад

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

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

P

Пользователь

от Programmer , 7 месяцев назад

@lilla.herman Приветствую!

Для определения раскладки нужно понимать что именно мы ищем, т.е. нужно знать код искомой раскладки, например 68748313 соответствует русской.


1
2
3
4
5
6
7
8
Const EN = 67699721
      RU = 68748313
...

if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = EN then
  ShowMessage('раскладка английская');
else
  ShowMessage('раскладка НЕ английская');