Узнать текущую раскладку клавиатуры в любом активном окне
Материал из 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