Flasher
|
 Posted: Mon Apr 08, 2013 02:02 Post subject: |
 |
|
> | Flasher wrote: | | зачем вообще набивать посимвольно? |
| _D_V_S_ wrote: | | А скрипт + экзешник это совсем другое... |
Другое - это какое? 
| _D_V_S_ wrote: | | То есть выбрал пункт первый и включается английский язык, выбрал пункт второй - включается русский язык. |
И что? Каждый раз дёргать реестр, чтобы что-то набивать в нужном поле? ОВНС.
| _D_V_S_ wrote: | | И тут встаёт проверка на текущую раскладку. |
Зачем проверка? Описывалась принудительная смена.
| _D_V_S_ wrote: | | Вот и ломаю голову сижу, как это сделать |
Стандартными методами никак. Нестандартными, например, так: | Code: | With CreateObject("DynamicWrapper")
.Register "USER32", "ActivateKeyboardLayout", "i=ll", "f=s", "r=l"
.Register "USER32", "LoadKeyboardLayout", "i=sl", "f=s", "r=l"
.ActivateKeyboardLayout .LoadKeyboardLayout("00000419", 0), 0
End With |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
