@KBLayout, @MUILang, @OSLang values/codes

#include <MsgBoxConstants.au3>

MsgBox($MB_SYSTEMMODAL, "", "The language of the OS is: " & _GetLanguage(@OSLang) & " (" & _WinAPI_LCIDToLocaleName("0x" & @OSLang) & ")")

; Retrieve the language of the operating system.
Func _GetLanguage($sOSLang)
    ; @OSLang is four characters in length, the first two is the dialect and the remaining two are the language group.
    ; Therefore we only require the language group and therefore select the two right-most characters.
    $sOSLang = StringRight($sOSLang, 2)
    Local $aArray = [[131,""], _
            ["36", "Afrikaans"], ["1C", "Albanian"], ["84", "Alsatian"], ["5E", "Amharic"], ["01", "Arabic"], _
            ["2B", "Armenian"], ["4D", "Assamese"], ["2C", "Azerbaijani (*)"], ["45", "Bangla"], _
            ["6D", "Bashkir"], ["2D", "Basque"], ["23", "Belarusian"], ["7E", "Breton"], ["02", "Bulgarian"], _
            ["55", "Burmese"], ["03", "Catalan"], ["5F", "Central Atlas Tamazight (*)"], ["5C", "Cherokee"], _
            ["04", "Chinese (*)"], ["83", "Corsican"], ["05", "Czech"], ["06", "Danish"], ["8C", "Dari"], _
            ["65", "Divehi"], ["13", "Dutch"], ["09", "English"], ["25", "Estonian"], ["38", "Faroese"], _
            ["64", "Filipino"], ["0B", "Finnish"], ["0C", "French"], ["62", "Frisian"], ["67", "Fulah"], _
            ["56", "Galician"], ["37", "Georgian"], ["07", "German"], ["08", "Greek"], ["6F", "Greenlandic"], _
            ["74", "Guarani"], ["47", "Gujarati"], ["68", "Hausa (*)"], ["75", "Hawaiian"], ["0D", "Hebrew"], _
            ["39", "Hindi"], ["0E", "Hungarian"], ["0F", "Icelandic"], ["70", "Igbo"], ["21", "Indonesian"], _
            ["5D", "Inuktitut (*)"], ["3C", "Irish"], ["10", "Italian"], ["11", "Japanese"], ["4B", "Kannada"], _
            ["71", "Kanuri (*)"], ["60", "Kashmiri (*)"], ["3F", "Kazakh"], ["53", "Khmer"], ["86", "K'iche"], _
            ["87", "Kinyarwanda"], ["41", "Kiswahili"], ["57", "Konkani"], ["12", "Korean"], ["40", "Kyrgyz"], _
            ["54", "Lao"], ["76", "Latin"], ["26", "Latvian"], ["27", "Lithuanian"], ["2E", "Lower Sorbian"], _
            ["6E", "Luxembourgish"], ["2F", "Macedonian"], ["3E", "Malay"], ["4C", "Malayalam"], _
            ["3A", "Maltese"], ["81", "Maori"], ["7A", "Mapudungun"], ["4E", "Marathi"], ["7C", "Mohawk"], _
            ["50", "Mongolian (*)"], ["61", "Nepali"], ["14", "Norwegian (*)"], ["82", "Occitan"], _
            ["48", "Odia"], ["72", "Oromo"], ["63", "Pashto"], ["29", "Persian"], ["15", "Polish"], _
            ["16", "Portuguese"], ["46", "Punjabi"], ["6B", "Quechua"], ["18", "Romanian"], ["17", "Romansh"], _
            ["19", "Russian"], ["85", "Sakha"], ["3B", "Sami (*)"], ["4F", "Sanskrit"], ["91", "Scottish Gaelic"], _
            ["1A", "Serbian (*)"], ["6C", "Sesotho sa Leboa"], ["32", "Setswana"], ["59", "Sindhi"], _
            ["5B", "Sinhala"], ["1B", "Slovak"], ["24", "Slovenian"], ["77", "Somali"], ["30", "Sotho"], _
            ["0A", "Spanish"], ["1D", "Swedish"], ["5A", "Syriac"], ["28", "Tajik (*)"], ["49", "Tamil"], _
            ["44", "Tatar"], ["4A", "Telugu"], ["1E", "Thai"], ["51", "Tibetan"], ["73", "Tigrinya"], _
            ["31", "Tsonga"], ["1F", "Turkish"], ["42", "Turkmen"], ["22", "Ukrainian"], ["20", "Urdu"], _
            ["80", "Uyghur"], ["43", "Uzbek (*)"], ["33", "Venda"], ["2A", "Vietnamese"], ["52", "Welsh"], _
            ["88", "Wolof"], ["34", "Xhosa"], ["78", "Yi"], ["3D", "Yiddish"], ["6A", "Yoruba"]]

    For $n = 1 To $aArray[0][0]
        If $aArray[$n][0] = $sOSLang Then Return SetError(0, '0x' & $sOSLang, $aArray[$n][1])
    Next

    Return SetError(1, '0x' & $sOSLang, "Other (not included in this list)")
EndFunc   ;==>_GetLanguage

Func _WinAPI_LCIDToLocaleName($iLCID)
    Local $aRet = DllCall("kernel32.dll", "int", "LCIDToLocaleName", "int", $iLCID, "wstr", "", "int", 85, "dword", 0)
    Return $aRet[2]
EndFunc   ;==>LCIDToLocaleName