Программное преключение раскладки клавиатуры в 8х

[Dimon07]

8.3
Доброго времени суток!!

Как программно переключить раскладку в версии 8.х ??
В версии 7.х было такое;
   ....
   Сервис_ = СоздатьОбъект( "Сервис" );
   Сервис_.РаскладкаКлавиатуры("Russian");
   ....

Куда все подевалось в версии 8.х??
Или надо как-то по другому записать??

[antoneus]

Так и в 7.x этого не было, FormEx - сторонняя dll. Костыль с SendKeys должен помочь

Код Выделить Развернуть

Shell = Новый COMОбъект("WScript.Shell");
Shell.SendKeys("^+");//Ctrl+Shift
Shell.SendKeys("%+");//Alt+Shift

[Dimon07]

Костыль с SendKeys должен помочь

Это подойдет, лишь когда можно как-то узнать, какая раскладка текущая в даннфй момент.
Может есть способ??

[wise]

(2) 13-ый пост ( https://forum.mista.ru/topic.php?id=686358 )

[antoneus]

Это подойдет, лишь когда можно как-то узнать, какая раскладка текущая в даннфй момент.

В смысле?

[Dimon07]

В смысле?

Смысл прост: Прежде чем переключать,- нужно знать какая раскладка установлена. Может и переключать не надо.

ЗЫ
Я вот все время удивляюсь уровню разработчиков 1с))) Хуже юзера...)) Версии все выходят...выходят... а уровень не меняется...))