Переключение раскладки клавиатуры для приложения . Delphi , ОС и Железо , Клавиши

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

Code:

{ **** UBPFD *********** by kladovka.net.ru ****

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

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

Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург

Copyright: Dimka Maslov

Дата: 21 мая 2002 г.

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

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;

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

Code:

ChangeLayout(LANG_RUSSIAN);

ChangeLayout(LANG_ENGLISH);

Статья Переключение раскладки клавиатуры для приложения раздела ОС и Железо Клавиши может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.