Узнаем Активный Язык Ввода (раскладку Клавиатуры) - Русская Или Английская?

[Sascha]

Узнать текущую раскладку можно при помощи, этого нехитрого кода.

1) Кидаем на форму один Button и один Label

2) Создаем обработчик событий OnClick на кнопке и в коде пописываем:

var

Layout:array [0..KL_NAMELENGTH]of char;

begin

GetKeyboardLayoutName(Layout);

if Layout='00000409' then

Label1.Caption:='En';

if Layout='00000419' then

Label1.Caption:='Rus';

end;

Теперь если вы будете переключить раскладку и нажимать следом на кнопку в нашей программе, то в компоненте Label будет отображаться текущее состояние языка.

00000402    Bulgarian
0000041a    Croatian
00000405    Czech
00000406    Danish
00000413    Dutch (Standard)
00000813    Dutch (Belgian)
00000409    English (United States)
00000809    English (United Kingdom)
00001009    English (Canadian)
00001409    English (New Zealand)
00000c09    English (Australian)
0000040b    Finnish
0000040c    French (Standard)
0000080c    French (Belgian)
0000100c    French (Swiss)
00000c0c    French (Canadian)
00000407    German (Standard)
00000807    German (Swiss)
00000c07    German (Austrian)
00000408    Greek
0000040e    Hungarian
0000040f    Icelandic
00001809    English (Irish)
00000410    Italian (Standard)
00000810    Italian (Swiss)
00000414    Norwegian (Bokmal)
00000814    Norwegian (Nynorsk)
00000415    Polish
00000816    Portuguese (Standard)
00000416    Portuguese (Brazilian)
00000418    Romanian
00000419    Russian
0000041b    Slovak
00000424    Slovenian
0000080a    Spanish (Mexican)
0000040a    Spanish (Traditional Sort)
00000c0a    Spanish (Modern Sort)
0000041d    Swedish
0000041f    Turkish