Переключение языка

Следующая статья: Как убить задачу, зная только имя .exe?

var russian, latin: HKL;
…
russian:=LoadKeyboardLayout('00000419', 0);
latin:=LoadKeyboardLayout('00000409', 0);

Где-то в программе:

 SetActiveKeyboardLayout(russian);

Примечание: Для переключения надо использовать функцию API ActivateKeyboardLayout(russian, 0), где russian – см. выше. Для вызова SetActiveKeyboardLayout(russian) необходимо определить такую функцию и передать ей в качестве параметра russian. Второй параметр – 0 (можно не передавать).