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

Written on 29 Октября 2007. Posted in [Delphi] Система. Клавиатура

Здесь переключатели на русский и на английский.

procedure SetRU;
var

Layout: array[0.. KL_NAMELENGTH] of char;

begin

LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);

end;

procedure SetEN;
var

Layout: array[0.. KL_NAMELENGTH] of char;

begin

LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);

end;