#include <Constants.au3>
#NoTrayIcon

Opt("TrayMenuMode", 1 + 2) ; Не отображать в трее пункты меню по умолчанию (Script Paused/Exit) и не отмечать галочками при выборе.

; Создание двух групп радиопунктов в меню
$iRadio1 = TrayCreateItem("Радио1", -1, -1, 1)
TrayItemSetState(-1, $TRAY_CHECKED)
$iRadio2 = TrayCreateItem("Радио2", -1, -1, 1)
$iRadio3 = TrayCreateItem("Радио3", -1, -1, 1)

TrayCreateItem("") ; Группы радиопунктов в меню могут быть разделены разделителем или другим нормальным пунктом меню

$iRadio4 = TrayCreateItem("Радио4", -1, -1, 1)
$iRadio5 = TrayCreateItem("Радио5", -1, -1, 1)
TrayItemSetState(-1, $TRAY_CHECKED)
$iRadio6 = TrayCreateItem("Радио6", -1, -1, 1)

TrayCreateItem("") ; Создаёт разделитель

$iOSVersion = TrayCreateItem("Информация OS")
$iAbout = TrayCreateItem("О программе")
TrayCreateItem("")
$iExit = TrayCreateItem("Выход")

TraySetState(1) ; Показывает меню трея

While 1
	Switch TrayGetMsg()
		Case $iOSVersion
			MsgBox(64, "Информация OS:", "OS:" & @OSVersion)

		Case $iAbout
			MsgBox(4096, "", "Пример меню в трее." & @CRLF & @CRLF & _
					"Версия AutoIt: " & @AutoItVersion & @CRLF & _
					"Путь установки: " & StringLeft(@AutoItExe, StringInStr(@AutoItExe, "\", 0, -1) - 1))

		Case $iExit ; Выход
			ExitLoop
	EndSwitch
WEnd