Restore App from System Tray and Tray Tip Question

mdwerne · September 26, 2011

Hello,

On the following app can anyone tell how I might do two things?

1) Restore the app by clicking its system tray icon.

2) Refresh the tray tip every 10 seconds so it displays for a full minute and does not go away?

So far everything I've tried either breaks the app or starts crazy endless loops (aka breaks the app)

Here is my code:

#include <GuiRichEdit.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include "_XMLDomWrapper.au3"
Opt("MustDeclareVars", 1)
Opt("TrayMenuMode", 1)
Global $sFile = (@ScriptDir & "\RTFMsg.xml")
Global $FormTitle, $RTFName, $ProgramName, $TrayTip, $ParamName, $AbortAllowed, $AbortButtonName, $ContinueButtonName, $i
_XMLFileOpen($sFile)
$FormTitle = _XMLGetAttrib("/MessageInfo/Title", "FormTitle")
$RTFName = _XMLGetAttrib("/MessageInfo/Display", "RTFName")
$ProgramName = _XMLGetAttrib("/MessageInfo/Program", "ProgramName")
$TrayTip = _XMLGetAttrib("/MessageInfo/TrayTip", "TrayTip")
$ParamName = _XMLGetAttrib("/MessageInfo/Param", "ParamName")
$AbortAllowed = _XMLGetAttrib("/MessageInfo/Abort", "AbortAllowed")
$AbortButtonName = _XMLGetAttrib("/MessageInfo/ABN", "AbortButtonName")
$ContinueButtonName = _XMLGetAttrib("/MessageInfo/CBN", "ContinueButtonName")
If WinExists($FormTitle) Then
WinActivate($FormTitle)
WinClose($FormTitle)
EndIf
_Main()
Func _Main()
Local $hGUI, $msg, $hRichEdit, $AbortButton, $ContinueButton
$hGUI = GUICreate($FormTitle, 900, 700, -1, -1, -1)
$hRichEdit = _GUICtrlRichEdit_Create($hGUI, "", 10, 10, 880, 650, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
$AbortButton = GUICtrlCreateButton($AbortButtonName, 700, 670, 50, 20)
$ContinueButton = GUICtrlCreateButton($ContinueButtonName, 828, 670, 60, 20)
GUISetState()
_GUICtrlRichEdit_StreamFromFile($hRichEdit, @ScriptDir & "\RichText.rtf")
_GUICtrlRichEdit_SetReadOnly($hRichEdit)
_GUICtrlRichEdit_GotoCharPos($hRichEdit, 0)
TrayTip("", $TrayTip, 10)
TraySetState(4)
While 1
  $msg = GUIGetMsg()
  Select
   Case $msg = $ContinueButton
    Run(@ScriptDir & "\" & $ProgramName)
    Exit 0
   Case $msg = $GUI_EVENT_CLOSE Or $msg = $AbortButton
    Exit -1
  EndSelect
WEnd
EndFunc   ;==>_Main

Sample XML file:

<?xml version="1.0"?>
<MessageInfo>
  <Title FormTitle="Start Calculator"/>
<Display RTFName="RichText.rtf"/>
<Program ProgramName="Calc.exe"/>
<TrayTip TrayTip="You have an SCCM deployment!"/>
<Param ParamName=""/>
<Abort AbortAllowed="Y" />
<ABN AbortButtonName="Cancel"/>
<CBN ContinueButtonName="Continue"/>
</MessageInfo>

Thanks for any suggestions,

-Mike

mdwerne · September 26, 2011

Ok...so I got the restore from tray "working"...any other suggestions would be welcomed. What's left is to keep the Tray Tip up for 60 seconds, any thoughts.

Code so far:

#include <GuiRichEdit.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include "_XMLDomWrapper.au3"
#include <Constants.au3>
Opt("MustDeclareVars", 1)
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)
Global $sFile = (@ScriptDir & "\RTFMsg.xml")
Global $FormTitle, $RTFName, $ProgramName, $TrayTip, $ParamName, $AbortAllowed, $AbortButtonName, $ContinueButtonName, $i, $opt, $trayMsg, $tlist_1, $tlist_2
_XMLFileOpen($sFile)
$FormTitle = _XMLGetAttrib("/MessageInfo/Title", "FormTitle")
$RTFName = _XMLGetAttrib("/MessageInfo/Display", "RTFName")
$ProgramName = _XMLGetAttrib("/MessageInfo/Program", "ProgramName")
$TrayTip = _XMLGetAttrib("/MessageInfo/TrayTip", "TrayTip")
$ParamName = _XMLGetAttrib("/MessageInfo/Param", "ParamName")
$AbortAllowed = _XMLGetAttrib("/MessageInfo/Abort", "AbortAllowed")
$AbortButtonName = _XMLGetAttrib("/MessageInfo/ABN", "AbortButtonName")
$ContinueButtonName = _XMLGetAttrib("/MessageInfo/CBN", "ContinueButtonName")
If WinExists($FormTitle) Then
WinActivate($FormTitle)
WinClose($FormTitle)
EndIf
TraySetOnEvent($TRAY_EVENT_PRIMARYDOWN, "RestoreFromTray")
_Main()
Func _Main()
Local $hGUI, $msg, $hRichEdit, $AbortButton, $ContinueButton
$hGUI = GUICreate($FormTitle, 900, 700, -1, -1, -1)
$hRichEdit = _GUICtrlRichEdit_Create($hGUI, "", 10, 10, 880, 650, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
$AbortButton = GUICtrlCreateButton($AbortButtonName, 700, 670, 50, 20)
$ContinueButton = GUICtrlCreateButton($ContinueButtonName, 828, 670, 60, 20)
GUISetState()
_GUICtrlRichEdit_StreamFromFile($hRichEdit, @ScriptDir & "\RichText.rtf")
_GUICtrlRichEdit_SetReadOnly($hRichEdit)
_GUICtrlRichEdit_GotoCharPos($hRichEdit, 0)
TrayTip("", $TrayTip, 10)
TraySetState(4)
While 1
  $msg = GUIGetMsg()
  Select
   Case $msg = $ContinueButton
    Run(@ScriptDir & "\" & $ProgramName)
    Exit 0
   Case $msg = $GUI_EVENT_CLOSE Or $msg = $AbortButton
    Exit -1
  EndSelect
WEnd
EndFunc   ;==>_Main
; Functions
Func RestoreFromTray()
Select
  Case @TRAY_ID = $TRAY_EVENT_PRIMARYDOWN
   GUISetState(@SW_RESTORE)
EndSelect
EndFunc   ;==>RestoreFromTray

kaotkbliss · September 26, 2011

TrayTip ( "title", "text", timeout [, option] )

So... just change your timeout from 10 to 60

mdwerne · September 26, 2011

TrayTip ( "title", "text", timeout [, option] )

So... just change your timeout from 10 to 60

Hi kaotkbliss,

Thanks for the reply, I should have been more clear. I want the tray tip to keep refreshing after ten seconds even if the user clicks on the desktop, or tray icon, or popup bubble, or anywhere else. My hope is that if I do this for 60 seconds...that they will be motivated to start the deployment (by clicking the continue button).

So essentially I'm looking for the best place to put a loop (and how) that calls the Tray Tip function every ten seconds for 60 seconds. Hope that makes more sense.

Thanks again,

-Mike

Edited September 26, 2011 by mdwerne

kaotkbliss · September 26, 2011

Ahh, put it in a func. then in your main loop use timerinit and timerdiff. When the specified amount of time has elapsed, call the func.

AdmiralAlkex · September 26, 2011

Or use AdlibRegister()

mdwerne · September 27, 2011

Or use AdlibRegister()

@kaotkbliss thanks for the suggestion!

@AdmiralAlkex what a cool and useful function. I've seen it in the past but never knew what it was used for. As you may have guessed, it worked perfectly!! Thank you for the suggestion.

-Mike

mdwerne · October 3, 2011

One Last question. When I right click the System Tray Icon, the program does not always restore the GUI, double click always seems to work. I've read a few threads about setting the double click speed to determine what a single click is....but have no idea how to implement this.

Bottom-line, is there a way to consistently get my program to restore from the system tray with a single click?

Here is the code thus far.

#include "_XMLDomWrapper.au3"
#include <Constants.au3>
#include <GuiRichEdit.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("MustDeclareVars", 1)
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1)
Global $sFile = (@ScriptDir & "\Config.xml")
Global $hGUI, $FormTitle, $RTFName, $ProgramName, $TrayTip, $ShutdownTimer, $ParamName, $AbortAllowed, $AbortButtonName, $ContinueButtonName, $hRichEdit
_XMLFileOpen($sFile)
$FormTitle = _XMLGetAttrib("/MessageInfo/Title", "FormTitle")
$RTFName = _XMLGetAttrib("/MessageInfo/Display", "RTFName")
$ProgramName = _XMLGetAttrib("/MessageInfo/Program", "ProgramName")
$TrayTip = _XMLGetAttrib("/MessageInfo/TrayTip", "TrayTip")
$ShutdownTimer = _XMLGetAttrib("/MessageInfo/ShutdownTimer", "ShutdownTimer")
$ParamName = _XMLGetAttrib("/MessageInfo/Param", "ParamName")
$AbortAllowed = _XMLGetAttrib("/MessageInfo/Abort", "AbortAllowed")
$AbortButtonName = _XMLGetAttrib("/MessageInfo/ABN", "AbortButtonName")
$ContinueButtonName = _XMLGetAttrib("/MessageInfo/CBN", "ContinueButtonName")
If WinExists($FormTitle) Then
WinClose($FormTitle)
EndIf
If $ShutdownTimer = "" Then
$ShutdownTimer = 300000
EndIf
TrayTip("", $TrayTip, 5)
TraySetOnEvent($TRAY_EVENT_PRIMARYDOWN, "RestoreFromTray")
TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "RestoreFromTray")
TraySetState(4)
AdlibRegister("RefreshTrayTip", 10000)
AdlibRegister("ClickActiveWindow")
AdlibRegister("ShutdownTimer", $ShutdownTimer)
_Main()
; Functions
Func _Main()
Local $msg, $AbortButton, $ContinueButton
$hGUI = GUICreate($FormTitle, 900, 700, -1, -1, -1)
$hRichEdit = _GUICtrlRichEdit_Create($hGUI, "", 10, 10, 880, 650, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
$AbortButton = GUICtrlCreateButton($AbortButtonName, 700, 670, 50, 20)
$ContinueButton = GUICtrlCreateButton($ContinueButtonName, 828, 670, 60, 20)
GUISetState()
GUISetState(@SW_MINIMIZE)
_GUICtrlRichEdit_StreamFromFile($hRichEdit, @ScriptDir & "\RichText.rtf")
_GUICtrlRichEdit_SetReadOnly($hRichEdit)
_GUICtrlRichEdit_GotoCharPos($hRichEdit, 0)
While 1
  $msg = GUIGetMsg()
  Select
   Case $msg = $ContinueButton
    Run(@ScriptDir & "\" & $ProgramName)
    _GUICtrlRichEdit_Destroy($hRichEdit) ;Not destorying the handle was causing the app to remian as a running process after the app quit.
    Exit 0
   Case $msg = $GUI_EVENT_CLOSE Or $msg = $AbortButton
    _GUICtrlRichEdit_Destroy($hRichEdit)
    Exit -1
  EndSelect
WEnd
EndFunc   ;==>_Main
Func RestoreFromTray()
Select
  Case @TRAY_ID = $TRAY_EVENT_PRIMARYDOWN
   ;GUISetState(@SW_RESTORE)
   WinSetState($hGUI, "", @SW_SHOW)
   WinActivate($hGUI)
   ;MouseClick("Left", @DesktopWidth / 2, @DesktopHeight / 2, 1, 0)
   Send("{LCTRL} + {END}")
   ;Case @TRAY_ID = $TRAY_EVENT_PRIMARYDUBLE
   ; ;GUISetState(@SW_RESTORE)
   ; WinSetState($hGUI, "", @SW_SHOW)
   ; WinActivate($hGUI)
   ; ;MouseClick("Left", @DesktopWidth / 2, @DesktopHeight / 2, 1, 0)
   ; Send("{LCTRL} + {END}")
EndSelect
EndFunc   ;==>RestoreFromTray
Func RefreshTrayTip()
TrayTip("", $TrayTip, 5)
EndFunc   ;==>RefreshTrayTip
Func ClickActiveWindow()
If WinActive($FormTitle) Then
  MouseClick("Left", @DesktopWidth / 2, @DesktopHeight / 2, 1, 0)
  AdlibUnRegister("ClickActiveWindow") ;UnRegisterAdLib to kill the functionality
EndIf
EndFunc   ;==>ClickActiveWindow
Func ShutdownTimer()
_GUICtrlRichEdit_Destroy($hRichEdit)
Exit -1
EndFunc   ;==>ShutdownTimer

Thanks for any thoughts,

-Mike

mdwerne · October 5, 2011

Bump...

Bottom-line, is there a way to consistently get my program to restore from the system tray with a single click?

Thanks,

-Mike

kaotkbliss · October 5, 2011

You say "on right click" but your code has

$TRAY_EVENT_PRIMARYDOWN

instead of

$TRAY_EVENT_SECONDARYDOWN

So I'm a little confused.

mdwerne · October 5, 2011

You say "on right click" but your code has
$TRAY_EVENT_PRIMARYDOWN
instead of
$TRAY_EVENT_SECONDARYDOWN

So I'm a little confused.

Sorry...a duh moment on my part. Yes, I meant a left click. Ah the joys of dyslexia. :graduated:

I use an ergo mouse so in my case, it's the top button . Regardless of positioning...I'm looking for the program to restore from the system tray after a single click of the Primary Mouse Button...I added the primarydouble mouse button in just for my testing...it is not required.

Edited October 5, 2011 by mdwerne

Sign In

Restore App from System Tray and Tray Tip Question

Recommended Posts

mdwerne

mdwerne

kaotkbliss

mdwerne

kaotkbliss

AdmiralAlkex

mdwerne

mdwerne

mdwerne

kaotkbliss

mdwerne

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta