Break On
Dim $SO
$SO=SetOption("NoMacrosInStrings", "ON")
$SO=SetOption("NoVarsInStrings", "ON")
$SO=SetOption("Explicit", "ON")
Global $System,$Form,$ContextMenu,$OpenMenu,$ExitMenu,$NotifyIcon,$FormRunning
Dim $Icon,$nul
;Create 'Kixforms.System' Object.
$System = CreateObject("Kixforms.System")
;Verify the 'Kixforms.System' Object was created if not, notify and exit.
If Not $System
$nul= MessageBox("KiXforms.Net Not Initiated."+@CRLF+
"Please verify KiXforms.Net is installed."+@CRLF+
"This Script Will Now Close.","Error",16)
Quit()
EndIf
$Form = $System.Form()
$Form.Closing = "ClosingForm()"
$Form.FormBorderStyle = $System.FormBorderStyle_FixedToolWindow
$Form.ShowInTaskbar = 0 ;False
$Form.StartPosition = $System.FormStartPosition_CenterScreen
$Form.Size = $System.Size(400,300) ;(Width,Height)
$Form.Text = "Notify Icon"
$ContextMenu = $System.ContextMenu()
$OpenMenu = $ContextMenu.MenuItems.Add($System.MenuItem("Open"))
$OpenMenu.Click = "OpenMenu_Click()"
$OpenMenu.Enabled = 0
$ExitMenu = $ContextMenu.MenuItems.Add($System.MenuItem("Exit"))
$ExitMenu.Click = "Exit_Form()"
$NotifyIcon = $System.NotifyIcon()
$NotifyIcon.ContextMenu = $ContextMenu
$NotifyIcon.DoubleClick = "OpenMenu_Click()"
$NotifyIcon.Icon = $System.Icon.FromFile("FullPath\IconFileName.ico")
$NotifyIcon.Visible = -1 ;True
$nul = $Form.Controls.Add($NotifyIcon)
$Form.Show ;Displays the Form
$FormRunning = 1
While $FormRunning = 1
$Nul = Execute($Form.DoEvents())
Loop
Exit 0
Function Exit_Form()
$NotifyIcon.Visible = 0 ;False
;$FormRunning = 0
Quit()
EndFunction
Function ClosingForm()
$Form.ClosingEventArgs.Cancel = -1 ;True
OpenMenu_Click()
EndFunction
Function OpenMenu_Click()
If $OpenMenu.Enabled = 0 ;False
$Form.Hide
$OpenMenu.Enabled = -1 ;True
Else
$Form.Show
$OpenMenu.Enabled = 0 ;False
EndIf
EndFunction