Архив форумов ЦИТФорума

[Kiril]

Помогите плиз:
Как в Delphi5 написать процедуру переключения языка в Виндах с англ на русский и наоборот. (типа чтобы прога автоматически могла переключать расклад клавы)
Только пожайлуста по-проще.

[Old_Den]

По-проще не по-проще, а использовать нужно фунцию ActivateKeyboardLayout - ищи ее описание в MSDN - там все расписано

[Anatoliy]

Русский.
LoadKeyboardLayout("00000419", KLF_ACTIVATE);
Англ.
LoadKeyboardLayout("00000409", KLF_ACTIVATE);

[Kiril]

Ошибка!
LoadKeyboardLayout("00000419", KLF_ACTIVATE);
Illegal Character in input file: "" ($22)

[Kiril]

Только это звучит чуть по-другому:
Ru:
ActivateKeyboardLayout(68748313, KLF_ACTIVATE);
En:
ActivateKeyboardLayout(67699721, KLF_ACTIVATE);
Вот так. Спасибо за помощь!!!