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

Для переключения языка применяется вызов LoadKeyboardLayout:

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

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

SetActiveKeyboardLayout(russian);

[Nikolaev Igor]

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