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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

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

{/codecitation}

Добавить комментарий