Узнать текущую раскладку клавиатуры в любом активном окне

Delphi , ОС и Железо , Язык

Автор: KosilkA
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Узнать текущую раскладку клавиатуры в любом активном окне

возвращает числовое значение соответственно установленной раскладке

Зависимости: windows
Автор:       KosilkA, gloom@imail.ru, Koenigsberg
Copyright:   delphi help и немного усердия :-)
Дата:        4 декабря 2003 г.
***************************************************** }

if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = 67699721 then
  //раскладка английская
else
  //раскладка НЕанглийская, например 68748313 соответствует русской

Статья Узнать текущую раскладку клавиатуры в любом активном окне раздела ОС и Железо Язык может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Язык ::