[Decoding]

Выбирай:

Код:

// Способ первый
// Русский язык
procedure TForm1.Button1Click(Sender: TObject);
var
  Russian: HKL;
begin
   Russian := LoadKeyboardLayout( '00000419', 0 );
   ActivateKeyboardLayout( Russian, KLF_ACTIVATE );
end;

// Английский язык
procedure TForm1.Button2Click(Sender: TObject);
var
  Latin: HKL;
begin
   Latin := LoadKeyboardLayout( '00000409', 0 );
   ActivateKeyboardLayout( Latin, KLF_ACTIVATE );
end;

// Способ второй
// Русский язык
procedure TForm1.Button1Click(Sender: TObject);
begin
   LoadKeyboardLayout( '00000419', KLF_ACTIVATE );
end;

// Английский язык
procedure TForm1.Button2Click(Sender: TObject);
begin
   LoadKeyboardLayout( '00000409', KLF_ACTIVATE );
end;