[madmasles]

Creat0R,
С учетом Ваших замечаний:

читать дальше »

Код:

#include <GUIConstantsEx.au3>

ConsoleWrite(_WinAPI_LoadKeyboardLayout_CreatoR(0x0409) & @CR)
#region Main form
$hMain_GUI = GUICreate("Главное окно", 300, 200)
$nStngs_Btn = GUICtrlCreateButton("Настройки", 10, 170, 70, 20)
$nExit_Btn = GUICtrlCreateButton("Выход", 90, 170, 70, 20)
GUISetState(@SW_SHOW, $hMain_GUI)
#endregion Main form
#region Settings form
$hStngs_GUI = GUICreate("Настройки", 400, 200)
$nStngs_Ok_Btn = GUICtrlCreateButton("ОК", 10, 170, 80, 25)
$nStngs_Close_Btn = GUICtrlCreateButton("Закрыть", 310, 170, 80, 25)
#endregion Settings form

Dim $AccelKeys[2][2] = [["{F5}", $nStngs_Btn],["^n", $nStngs_Btn]]
GUISetAccelerators($AccelKeys, $hMain_GUI)

While 1
    $aMsg = GUIGetMsg(1)

    Switch $aMsg[1]
        Case $hMain_GUI
            Switch $aMsg[0]
                Case $GUI_EVENT_CLOSE, $nExit_Btn
                    Exit
                Case $nStngs_Btn
                    GUISetState(@SW_SHOW, $hStngs_GUI)
            EndSwitch
        Case $hStngs_GUI
            Switch $aMsg[0]
                Case $GUI_EVENT_CLOSE, $nStngs_Close_Btn
                    GUISetState(@SW_HIDE, $hStngs_GUI)
            EndSwitch
    EndSwitch
WEnd

Func _WinAPI_LoadKeyboardLayout_CreatoR($sLayoutID, $hWnd = 0)
    Local Const $WM_INPUTLANGCHANGEREQUEST = 0x50
    Local $aRet = DllCall("user32.dll", "long", "LoadKeyboardLayoutW", "wstr", Hex($sLayoutID, 8), "int", 0)

    If Not @error And $aRet[0] Then
        If $hWnd = 0 Then
            $hWnd = WinGetHandle(AutoItWinGetTitle())
        EndIf
        DllCall("user32.dll", "ptr", "SendMessage", "hwnd", $hWnd, "int", $WM_INPUTLANGCHANGEREQUEST, "int", 1, "int", $aRet[0])
        Return 1
    EndIf

    Return SetError(1)
EndFunc   ;==>_WinAPI_LoadKeyboardLayout_Creat0R