AutoHotkey Community

; *** initialization
#Persistent
#SingleInstance force
#NoEnv
SendMode Input

Menu, Tray, Add
last_prop_menu_label = Info: -
Menu, Tray, Add,     %last_prop_menu_label%, LabWinInfo
Menu, Tray, Default, %last_prop_menu_label%
Menu, Tray, Disable, %last_prop_menu_label%
Menu, Tray, Click, 1

LastActiveID := ActiveId()

Gui +LastFound
DllCall( "RegisterShellHookWindow", UInt,WinExist() )
MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" )
OnMessage( MsgNum, "ShellMessage" )

OnMessage(0x404, "TrayMessage")

OnExit, CleanExit

Return


; exit app
CleanExit:
   OnExit,
   DllCall("DeregisterShellHookWindow", UInt,hWnd)
ExitApp

; Shell hook
ShellMessage(wParam,lParam)
{
   Global LastActiveID
   If (wParam=4 And checkNormalWin(lParam)) {
      LastActiveID := lParam
   }
}

; called whenever the mouse pointer is over the tray icon
TrayMessage(wParam, lParam)
{
   global xbutton, LastActiveID
   if lParam = 0x204   ; WM_RBUTTONDOWN
   {
      ; refresh the tray menu before it is displayed
      RefreshMenu(LastActiveID)
   }
   if lParam = 0x208   ; WM_MBUTTONUP
   {
      ; executed when the tray icon is clicked with the middel mouse button
      MsgBox Middle mouse button
   }
   if (lParam=524)  ; lParam = 524: Up message for XButton1 AND 2!
   {
      if xbutton = 1
      {
         ; executed when the tray icon is clicked with the Xbutton1
         MsgBox X Button 1
      }
      else
      {
         ; executed when the tray icon is clicked with the Xbutton2
         MsgBox X Button 2
      }
   }
}
; we need to retrieve the XButton number using those hotkeys
XButton1::
   xbutton=1
   Send {XButton1 Down}
return
XButton1 Up::
   xbutton=1
   Send {XButton1 Up}
return
XButton2::
   xbutton=2
   Send {XButton2 Down}
return
XButton2 Up::
   xbutton=2
   Send {XButton2 Up}
return

; return the windowID passed in argument if the window is not a system window,
; otherwise, return 0
checkNormalWin(wid)
{
   ifWinNotExist ahk_id %wid%
      return 0
    WinGetClass, class, ahk_id %wid%
   if class in Shell_TrayWnd,Progman,Static,tooltips_class32,SysShadow
      return 0
   return %wid%
}

;; return the windowID passed in argument if the window appears
;; in the Alt-Tab menu and exists, otherwise, return 0
;checkNormalWin(wid)
;{
;   ifWinNotExist ahk_id %wid%
;      return 0
;   WinGet, es, ExStyle, ahk_id %wid%
;   if ((!DllCall("GetWindow","uint",wid, "uint",4) and !(es & WS_EX_TOOLWINDOW)) \
;         or (es & WS_EX_APPWINDOW))
;      return %wid%
;   return 0
;}

; return the window ID of the currently active window,
; or 0 if the active window is not a "normal" window.
ActiveId()
{
   WinGet, wid, ID, A
   return checkNormalWin(wid)
}

; refresh the menu when the user clicks on the tray icon
RefreshMenu(wid)
{
   global last_prop_menu_label
   wid := checkNormalWin(wid)
   if (wid > 0)
   {
      WinGetTitle, title, ahk_id %wid%
      if title =
         title = Untitled
      if (strlen(title) > 22)
         title := SubStr(title, 1, 20)"..."
      
      if last_prop_menu_label != Info: %title%
      {
         Menu, Tray, Rename, %last_prop_menu_label%, Info: %title%
         last_prop_menu_label = Info: %title%
         Menu, Tray, Default, %last_prop_menu_label%
         Menu, Tray, Enable, %last_prop_menu_label%
      }
   }
   else
   {
      if last_prop_menu_label != Info: -
      {
         Menu, Tray, Rename, %last_prop_menu_label%, Info: -
         last_prop_menu_label = Info: -
         Menu, Tray, Default, %last_prop_menu_label%
         Menu, Tray, Disable, %last_prop_menu_label%
      }
   }
}

; demo function
LabWinInfo:
   WinInfo(LastActiveID)
return
WinInfo(wid)
{
   WinGetTitle, title, ahk_id %wid%
   WinGetClass, class, ahk_id %wid%
   WinGetPos, xpos, ypos, width, height, ahk_id %wid%
   WinGet, processname, ProcessName, ahk_id %wid%
   WinGet, pid, PID, ahk_id %wid%
   WinGet, style, Style, ahk_id %wid%
   WinGet, exstyle, ExStyle, ahk_id %wid%
   MsgBox, 262208, TrayDesktop: Active window info, Window title :  %title%`nWindow class :  %class%`nWindow ID :  %wid%`nWindow position :  %xpos%`,%ypos%`,  Size :  %width% x %height%`nWindow style :  %style%`,    ExStyle :  %exstyle%`nProcess :  %processname%    (PID = %pid%)
}

InvisibleParent(wid)
{
   parent := DllCall("GetWindow", "uint",wid, "uint",4)
   if parent = 0
      return 0
   WinGetPos,,, width, height, ahk_id %parent%
   if (width = 0 and height = 0)
      return %parent%
   return 0
}

#Persistent
Menu, M, Add, Note that this is the middle mouse button, Exit
Menu, M, Add, NOT the tray menu., Exit
Menu, L, Add, Note that this is the left button, Exit
Menu, L, Add, NOT the tray menu., Exit
Menu, Tray, Add, Note that this is the Right button, Exit 
Menu, Tray, Add, The tray menu., Exit
Gui, add,text, w100 h100,test
; name of the script = TrayAnimation.ahk
Gui, show,w100 h100,TestTray
OnMessage(0x404, "AHK_NOTIFYICON")
return
AHK_NOTIFYICON(wParam, lParam) { ; http://www.autohotkey.com/forum/post-172559.html#172559
   static text:="", ActiveWinTitle
   if (lParam = 0x200) { ; WM_MOUSEMOVE = 0x200
      WinGetActiveTitle, tempActiveWinTitle
      ActiveWinTitle:= tempActiveWinTitle ? tempActiveWinTitle : ActiveWinTitle
      return 0
      }
    if (lParam = 0x205) { ; WM_RBUTTONUP
      Menu, tray, Show ; Right mouse button menu
      return 0
      }
   if (lParam = 0x202) { ; WM_LBUTTONUP
      if (ActiveWinTitle="TestTray") {
         Gui, Hide
         ActiveWinTitle:=""
         ; WinActivate   ; activate the last used window (does not work, that is the tray)
      } else {
         Gui, show
         ActiveWinTitle:="TestTray"
         }
      return 0
      }
   if (lParam = 0x208) { ; WM_MBUTTONUP
         Menu, M, Show ; Midlle mouse button menu
        return 0
      }
   }
GuiClose:
   Gui, Hide
   return
Exit:
   ExitApp
   Return