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

Code:

ChangeLayout(LANG_RUSSIAN);

ChangeLayout(LANG_ENGLISH);

Пример кода

Code:

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

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

Copyright:   Dimka Maslov

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

 

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;

 

 

 

 

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

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

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

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


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