язык клавиатуры

[bbk_serg]

Здраствуйте!

Какой код нужно для того чтобы при запуске программы английский язык клавиатури менялся на русский.

СПАСИБО!!!

[Niarb]

думаю следующий код будет тебе полезен

procedure GetKLList(List: TStrings);
var AList : array [0..9] of Hkl;
    AklName: array [0..255] of Char;
    i: Longint;
begin
   List.Clear;
   for i := 0 to GetKeyboardLayoutList(SizeOf(AList), AList) - 1 do begin
      GetLocaleInfo(LoWord(AList[i]), LOCALE_SLANGUAGE, AklName, SizeOf(AklName));
      List.AddObject(AklName, Pointer(AList[i]));
   end;
end;

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;

procedure TForm1.FormCreate(Sender: TObject);
begin
   // сбор данных о раскладках
   GetKLList(ListBox1.Items);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
   // смена раскладки
   with Sender as TListBox do
     ActivateKeyboardLayout(Hkl(Items.Objects[ItemIndex]), 0);
end;

[KingOfNothing]

в глобальном var'e

russian, latin: HKL;

Где нужно:

 russian := LoadKeyboardLayout('00000419', 0);
 latin   := LoadKeyboardLayout('00000409', 0);
 ActivateKeyboardLayout(russian, KLF_REORDER);

Не уверен на счет ключа KLF_REORDER, но всё вроде работает

Ссылки:
http://msdn.microsoft.com/en-us/libr...89(VS.85).aspx
http://www.experts-exchange.com/Prog..._20799845.html

[Пепел Феникса]

че-то я поздно
модеры сотрите пост плиз

[bbk_serg]

А если украинский то какой код будет!

СПАСИБО!!!