[vinni]

Народ, подскажите плиз, как программно поменять язык ввода с клавиатуры на русский и обратно. заранее спасибо!

[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;

[vinni]

СПАСИБО!!!

[KurtCobain]

А не проще вот так?
ActivateKeyboardLayout(HKL_NEXT, 0);
Язык просто меняется на следующий.