Сменить язык

FIDO'шник решил блеснуть знанием английского языка. Заходит в пивную.
- Пива энд воблы. Ничего, что я по-англицки?

Эта программа при нажатии на Button1 меняет язык на следующий, при нажатии на Button2 – на русский, а на Button3 – на английский. Каждую секунду программа выводит в заголовок окна число, определяющее текущий язык.

procedure TForm1.Button1Click(Sender: TObject);
begin
  ActivateKeyboardLayout(HKL_NEXT, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ActivateKeyboardLayout(LoadKeyboardLayout('00000419', 0), 0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ActivateKeyboardLayout(LoadKeyboardLayout('00000409', 0), 0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  s: array [0..63] of char;
begin
  GetKeyboardLayoutName(s);
  Form1.Caption := s;
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 295 • TDictionary Custom Sort 3 445 • Fast Watermark Sources 3 190 • 3D Designer 4 949 • Sik Screen Capture 3 443 • Patch Maker 3 646 • Айболит (remote control) 3 848 • ListBox Drag & Drop 3 110 • Доска для игры Реверси 82 586 • Графические эффекты 4 049 • Рисование по маске 3 345 • Перетаскивание изображений 2 719 • Canvas Drawing 2 867 • Рисование Луны 2 671 • Поворот изображения 2 283 • Рисование стержней 2 217 • Paint on Shape 1 617 • Генератор кроссвордов 2 298 • Головоломка Paletto 1 815 • Теорема Монжа об окружностях 2 313 • Пазл Numbrix 1 713 • Заборы и коммивояжеры 2 089 • Игра HIP 1 308 • Игра Go (Го) 1 259 • Симулятор лифта 1 506 • Программа укладки плитки 1 252 • Генератор лабиринта 1 578 • Проверка числового ввода 1 397 • HEX View 1 528 • Физический маятник 1 383

Сменить язык

Похожие по теме исходники