z::
ControlGetFocus, CtrlFocus, % "ahk_id" WinExist("A")
PostMessage, 0x50, 0, 0x4090409, %CtrlFocus% ;смена на английский
Return
А вот это нет:
v::
ControlGetFocus, CtrlFocus, % "ahk_id" WinExist("A")
PostMessage, 0x50, 0, 0x4090419, %CtrlFocus% ;смена на русский
Return
If DllCall("GetKeyboardLayout", "Int", DllCall("GetWindowThreadProcessId", "Int", WinExist("A"), "Int", "0")) = 0x4190419
PostMessage, 0x50, 0, 0x4090409,, A ;английский
Else
PostMessage, 0x50, 0, 0x4190419,, A ;русский
по вашему способу:
If DllCall("GetKeyboardLayout", "Int", DllCall("GetWindowThreadProcessId", "Int", WinExist("A"), "Int", "0"))=0x4190419
{
ControlGetFocus, CtrlFocus, % "ahk_id" WinExist("A")
PostMessage, 0x50, 0, 0x4090409, %CtrlFocus% ;английский
}
else
{
ControlGetFocus, CtrlFocus, % "ahk_id" WinExist("A")
PostMessage, 0x50, 0, 0x4090419, %CtrlFocus% ;русский
}
Не работает. C русского на английский меняет раскладку, а наоборот не хочет.
DllCall язык определяет:
If DllCall("GetKeyboardLayout", "Int", DllCall("GetWindowThreadProcessId", "Int", WinExist("A"), "Int", "0")) = 0x4190419
MsgBox русский
Else
MsgBox английский
Может подскажете что я не так делаю?
]]>Предлагаю создать тему посвященную работе AHK в среде Windows 10
Вы это уже сделали, а так да, проблем очень много. Новые скрипты конечно надо тестировать в первую очередь на 10-ке, правда наверняка она меньше чем у половины активных пользователей этого ресурса.
Вот пример
А так работает?
ControlGetFocus, CtrlFocus, % "ahk_id" WinExist("A")
PostMessage, 0x50, 0, 0x4090409, %CtrlFocus%
PostMessage, 0x50, 0, 0x4090409,, A ;английский
PostMessage, 0x50, 0, 0x4190419,, A ;русский
Кто нибудь знает как решить проблему?
]]>