Менять раскладку клавиатуры програмно

[Dark_Wolf]

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

[mihali4]

Разжевываем :

procedure TFManager.SetEnglish;
var lang: integer;
     tmp: array[0..8] of Char;
begin
GetKeyboardLayoutName(tmp);
lang:=StrToInt(StrPas(tmp));
if lang=419 then
begin
h:=LoadKeyboardLayout('409',KLF_ACTIVATE);
ActivateKeyboardLayout(h,KLF_REORDER);
end;
end;

procedure TFManager.SetRussian;
var lang: integer;
     tmp: array[0..8] of Char;
begin
GetKeyboardLayoutName(tmp);
lang:=StrToInt(StrPas(tmp));
if lang=409 then
begin
h:=LoadKeyboardLayout('419',KLF_ACTIVATE);
ActivateKeyboardLayout(h,KLF_REORDER);
end;
end;