Узнать текущую раскладку клавиатуры в любом активном окне
Falk0ner, вс, 06/07/2008 - 15:34.
Узнать текущую раскладку клавиатуры в любом активном окне
**** UBPFD *********** by delphibase.endimus.com ****
>>
возвращает числовое значение соответственно установленной раскладке
Зависимости: windows
Автор: KosilkA, <a href="mailto:gloom@imail.ru">gloom@imail.ru</a>, Koenigsberg
Copyright: delphi help и немного усердия :-)
Дата: 4 декабря 2003 г.
***************************************************** }
if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = 67699721 then
//раскладка английская
else
//раскладка НЕанглийская, например 68748313 соответствует русской
>>
возвращает числовое значение соответственно установленной раскладке
Зависимости: windows
Автор: KosilkA, <a href="mailto:gloom@imail.ru">gloom@imail.ru</a>, Koenigsberg
Copyright: delphi help и немного усердия :-)
Дата: 4 декабря 2003 г.
***************************************************** }
if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = 67699721 then
//раскладка английская
else
//раскладка НЕанглийская, например 68748313 соответствует русской
Отправить комментарий