pilgrim

Option Explicit

Const AppName       = "ZazouMiniWebServerManager"
Const AppFullName   = "ZazouMiniWebServer Manager"
Const AppVersion    = "0.1"

Dim menu, item
Set menu = new TrayMenuXML
menu.CreateXML AppName & ".xml", AppFullName & " " & AppVersion, AppName & ".exe"

Set item = menu.AppendItem("Démarrer", "ZazouMiniWebServer.exe")
item.SetAttribute "id", "IDSTART"
item.SetAttribute "params", "-stop"

Set item = menu.AppendItem("Arrêter", "ZazouMiniWebServer.exe")
item.SetAttribute "id", "IDSTOP"
item.SetAttribute "params", "-shutdown"

menu.AppendSeparator
menu.AppendItem "Quitter", "cmdQuit"

menu.SaveXML