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

 **** 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 соответствует русской