Как програмно изменить раскладку клавиатуры ?

← →
Виталя © (2003-11-24 10:34) [0]

Подсажите,пожалуйста, при помощи какой ф-ции можно переключиться с русской на английскую раскладку и обратно ?

← →
Ferr (2003-11-24 10:59) [1]

Procedure ToEnglish;
var layout:PChar;
begin
getmem(layout, 100);
loadkeyboardlayout(strcopy(layout, "00000409"), klf_activate);
freemem(layout);
end;

Procedure ToRussian;
var layout:PChar;
begin
getmem(layout, 100);
loadkeyboardlayout(strcopy(layout, "00000419"), klf_activate);
freemem(layout);
end;

← →
Vovchik_A © (2003-11-24 11:11) [2]

LoadKeyboardLayout("00000409", KLF_ACTIVATE); // английский
LoadKeyboardLayout("00000419", KLF_ACTIVATE); // русский

← →
Vovchik_A © (2003-11-24 11:29) [3]

00000422 - украинский

Спасибо!

Как програмно изменить раскладку клавиатуры ? Найти похожие ветки