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

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

 

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

Code:

**** UBPFD *********** ****

>>

Автор:       KosilkA, Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра., Koenigsberg

Copyright:   delphi help и немного усердия :-)

***************************************************** }

 

if GetKeyboardLayout(GetWindowThreadProcessId(GetForegroundWindow, nil)) = 67699721 then

//раскладка английская

else

//раскладка НЕанглийская, например 68748313 соответствует русской

 

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

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить