Как программно переключить раскладку клавиатуры

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

//На русский
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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 659 • TDictionary Custom Sort 6 662 • Fast Watermark Sources 6 445 • 3D Designer 9 379 • Sik Screen Capture 6 776 • Patch Maker 7 179 • Айболит (remote control) 7 176 • ListBox Drag & Drop 6 027 • Доска для игры Реверси 97 642 • Графические эффекты 7 350 • Рисование по маске 6 649 • Перетаскивание изображений 5 506 • Canvas Drawing 5 890 • Рисование Луны 5 629 • Поворот изображения 5 119 • Рисование стержней 3 709 • Paint on Shape 2 924 • Генератор кроссвордов 3 827 • Головоломка Paletto 3 066 • Теорема Монжа об окружностях 3 877 • Пазл Numbrix 2 551 • Заборы и коммивояжеры 3 285 • Игра HIP 2 253 • Игра Go (Го) 2 178 • Симулятор лифта 2 569 • Программа укладки плитки 2 188 • Генератор лабиринта 2 689 • Проверка числового ввода 2 338 • HEX View 2 673 • Физический маятник 2 320

Как программно переключить раскладку клавиатуры

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