MsgBox(0, "Язык вашей операционной системы:", _Language())

Func _Language()
	Switch @OSLang
		Case "0419", "0819"
			Return "Русский"
		Case "0422"
			Return "Украинский"
		Case "0423"
			Return "Белорусский"
		Case "0437"
			Return "Грузинский"
		Case "082c"
			Return "Азербайджанский"
		Case "0443", "0843"
			Return "Узбекский"
		Case "043f"
			Return "Казахский"
		Case "0444"
			Return "Татарский"
		Case "0440"
			Return "Киргизский"
		Case "0413", "0813"
			Return "Нидерландский"
		Case "0409", "0809", "0c09", "1009", "1409", "1809", "1c09", "2009", "2409", "2809", "2c09", "3009", "3409"
			Return "Английский"
		Case "040c", "080c", "0c0c", "100c", "140c", "180c"
			Return "Французский"
		Case "0407", "0807", "0c07", "1007", "1407"
			Return "Немецкий"
		Case "0410", "0810"
			Return "Итальянский"
		Case "0414", "0814"
			Return "Норвежский"
		Case "0416", "0816"
			Return "Португальский"
		Case "040a", "080a", "0c0a", "100a", "140a", "180a", "1c0a", "200a", "240a", "280a", "2c0a", "300a", "340a", "380a", "3c0a", "400a", "440a", "480a", "4c0a", "500a"
			Return "Испанский"
		Case "041d", "081d"
			Return "Шведский"
		Case Else
			Return "Не удалось определить язык OS, добавьте его в функцию"
	EndSwitch
EndFunc