1. Как при клике в трее "Run" запустить 2,3,4..N непрерывный цикл выполнения функции program()
2. Как при клике в трее "Exit" остановить (все, если запущено несколько) непрерывный цикл
2. Как при клике в трее "Exit" остановить (все, если запущено несколько) непрерывный цикл
Код:
Opt("TrayMenuMode",3)
$runitem = TrayCreateItem("Run")
TrayCreateItem("")
$exititem = TrayCreateItem("Exit")
TraySetState()
While 1
$msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
Case $msg = $runitem
program()
Case $msg = $exititem
ExitEvent()
EndSelect
WEnd
Func program()
While 1
RunWait("program.exe")
WEnd
EndFunc
Func ExitEvent()
Exit
EndFunc