AHK: раскладкозависимость, подавление ошибок, хоткей вида ctrl-a-b

F1::
    Layout := GetLayout()
    MsgBox, % Layout = 0x4090409 ? "En" : Layout = 0x4190419 ? "Ru" : "Unknown"
    Return
 
GetLayout()
{
   hWnd := WinExist("A")
   WinGetClass, Class, ahk_id %hWnd%
   if (Class = "ConsoleWindowClass")
   {
      WinGet, PIDConsole, PID, ahk_id %hWnd%
      DllCall("AttachConsole", Ptr, PIDConsole)
      VarSetCapacity(buff, 16)
      DllCall("GetConsoleKeyboardLayoutName", Ptr, &buff)
      DllCall("FreeConsole")
      Return StrGet(&buff)
   }
   else
   {
      ThreadID := DllCall("GetWindowThreadProcessId", Ptr, hWnd, UInt, 0, Ptr)
      InputLocaleID := DllCall("GetKeyboardLayout", Ptr, ThreadID, Ptr)
      Return InputLocaleID
   }
}

F11:: MsgBox % GetInputLangName(GetInputLangID("A"))
 
GetInputLangID(window)
{
	If !(hWnd := WinExist(window))
		return

	WinGetClass, Class

	if (Class == "ConsoleWindowClass")
	{
		WinGet, consolePID, PID
		DllCall("AttachConsole", Ptr, consolePID)
		VarSetCapacity(buff, 16)
		DllCall("GetConsoleKeyboardLayoutName", Str, buff)
		DllCall("FreeConsole")
		langID := "0x" . SubStr(buff, -3)
	}
	Else
		langID := DllCall("GetKeyboardLayout", Ptr, DllCall("GetWindowThreadProcessId", Ptr, hWnd, UInt, 0, Ptr), Ptr) & 0xFFFF

	return langID
}
 
GetInputLangName(langId)
{
	Size := (DllCall("GetLocaleInfo", UInt, langId, UInt, 0x1001, UInt, 0, UInt, 0) * 2)   ; LOCALE_SENGLANGUAGE := 0x1001
	VarSetCapacity(localeSig, Size, 0)
	DllCall("GetLocaleInfo", UInt, langId, UInt, 0x1001, Str, localeSig, UInt, Size)
	return localeSig
}

+-------------------------+-------------------------+
|     SubLanguage ID      |   Primary Language ID   |
+-------------------------+-------------------------+
15                    10  9                         0   bit

SetFormat, Integer, Hex
Lang = 9
SubLang = 1
MsgBox, % SubLang << 10 | Lang