переключение языка клавиатуры

← →
Эли (2002-11-15 18:21) [0]

Не подскажете, как программно переключать клавиатуру с русского на английский и обратно?

← →
Marcus (2002-11-15 18:28) [1]

См. функции LoadKeyboardLayout / ActivateKeyboardLayout

← →
MARcoDEN © (2002-11-15 18:56) [2]

procedure TForm1.Button1Click(Sender: TObject);//На русский
var
Layout: array[0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout( StrCopy(Layout,"00000419"),KLF_ACTIVATE);
end;

procedure TForm1.Button2Click(Sender: TObject);//На английский
var
Layout: array[0.. KL_NAMELENGTH] of char;
begin
LoadKeyboardLayout(StrCopy(Layout,"00000409"),KLF_ACTIVATE);
end;

← →
Эли (2002-11-15 20:29) [3]

Спасибо!!!

переключение языка клавиатуры Найти похожие ветки