Delphi

Вопрос

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

Ответ

LoadKeyboardLayout('00000409', KLF_ACTIVATE); // английский LoadKeyboardLayout('00000419', KLF_ACTIVATE); // русский
Это для установки конкретного языка.
Для переключения между имеющимися:

ActivateKeyBoardLayout(HKL_NEXT, 0) — следующая раскладка ActivateKeyBoardLayout(HKL_PREV, 0) — предыдущая.
Более подробно см. win32.hlp — справочная система по Win32 API и SDK.