Переключение раскладки клавиатуры для приложения

Пример использования:

Code:

ChangeLayout(LANG_RUSSIAN);

ChangeLayout(LANG_ENGLISH);

Пример кода

Code:

{ Зависимости: Windows

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

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

function ChangeLayout(LANG: Integer): Boolean;

var

Layouts: array [0..16] of HKL;

i, Count: Integer;

begin

Result:=False;

Count:=GetKeyboardLayoutList(High(Layouts)+1, Layouts)-1;

for i:=0 to Count do if (LoWord(Layouts[i]) and $FF) = LANG then

Result:=ActivateKeyboardLayout(Layouts[i], 0)<>0;

end;

Новые статьи