#include <Constants.au3> ; Необходимо для констант $TRAY_ITEM_EXIT and $TRAY_ITEM_PAUSE.
#NoTrayIcon

Opt("TrayAutoPause", 0) ; Скрипт не приостанавливается при клике на иконке в трее.
Opt("TrayMenuMode", 2) ; Не отмечать галочками при выборе пунктов.

$iRandom = TrayCreateItem("Изменяет текст")
TrayCreateItem("") ; Создаёт разделитель
$iAbout = TrayCreateItem("О программе")

TraySetState() ; Показывает меню трея
; Устанавливает текст пункту
Sleep(100)

While 1
	Switch TrayGetMsg()
		Case 0
			ContinueLoop
		Case $iRandom
			$tmp = Int(Random(1, 10, 1))
			TrayItemSetText($iRandom, "Изменяет текст - " & $tmp)
			TrayItemSetText($TRAY_ITEM_EXIT, "Завершить программу - " & $tmp)
			TrayItemSetText($TRAY_ITEM_PAUSE, "Приостановить программу - " & $tmp)
		Case $iAbout
			MsgBox(64, "О программе:", "Пример установки числа")
	EndSwitch
WEnd