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

Материал из DRKB

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

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

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

Зависимости: windows

Copyright:   delphi help и немного усердия :-)
Дата:        4 декабря 2003 г.
***************************************************** }

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


Source: http://delphibase.endimus.com
ID: 01973