AutoHotkey Community

DetectHiddenWindows,On

#Include TrayIcon.ahk

Settimer, Winamp, 1000

Winamp:
Process, Exist, Winamp.exe
Sleep, 3000
   {
      RegExMatch(TrayIcons("winamp.exe"), "(?<=idn: )\d+", idn)
      HideTrayIcon(idn)
   }
Process, WaitClose, winamp.exe
Return

Shell_TrayWnd -> NotifyIconOverflowWindow
ToolbarWindow32%idxTB% -> ToolbarWindow321 ; idxTB := GetTrayBar() no longer needed.

;#NoTrayIcon      ; uncomment these three lines to test standalone
;TrayIcon_CleanUp()
;Return

; Based on TrayIcon by Sean @ http://www.autohotkey.com/forum/topic17314.html
TrayIcon_CleanUp()
{   ; Remove abandoned icons in notification tray, such as left behine by "Process Close"
   DetectHiddenWindows, On
   ControlGet, hWndTray, hWnd,, Notification Area, ahk_class Shell_TrayWnd
   WinGet, pidTaskbar, PID, ahk_class Shell_TrayWnd
   hProc := DllCall("OpenProcess", "Uint", 0x38, "int", 0, "Uint", pidTaskbar)
   pRB := DllCall("VirtualAllocEx", "Uint", hProc, "Uint", 0, "Uint", 20, "Uint", 0x1000, "Uint", 0x4)
   VarSetCapacity(btn, 20)
   VarSetCapacity(nfo, 24)
   SendMessage, 0x418, 0, 0,, ahk_id %hWndTray%   ; TB_BUTTONCOUNT
   Loop, %ErrorLevel%
   {
      SendMessage, 0x417, A_Index - 1, pRB,, ahk_id %hWndTray%   ; TB_GETBUTTON
      DllCall("ReadProcessMemory", "Uint", hProc, "Uint", pRB, "Uint", &btn, "Uint", 20, "Uint", 0)
      dwData   := NumGet(btn,12)
      DllCall("ReadProcessMemory", "Uint", hProc, "Uint", dwData, "Uint", &nfo, "Uint", 24, "Uint", 0)
      hWnd   := NumGet(nfo, 0)
      uID   := NumGet(nfo, 4)      
      if !WinExist("ahk_id " . hWnd)
         TrayIcon_Remove(hWnd,uID)
   }
   DllCall("VirtualFreeEx", "Uint", hProc, "Uint", pRB, "Uint", 0, "Uint", 0x8000)
   DllCall("CloseHandle", "Uint", hProc)
   Return   sTrayIcon_CleanUp
}
TrayIcon_Remove(hWnd, uID, nMsg = 0, hIcon = 0, nRemove = 2)
{
   DetectHiddenWindows, On
   NumPut(VarSetCapacity(ni,444,0), ni)
   NumPut(hWnd , ni, 4)
   NumPut(uID  , ni, 8)
   NumPut(1|2|4, ni,12)
   NumPut(nMsg , ni,16)
   NumPut(hIcon, ni,20)
   Return   DllCall("shell32\Shell_NotifyIconA", "Uint", nRemove, "Uint", &ni)
}

MsgBox, % TrayIcons("vidalia.exe")

#NoTrayIcon
DetectHiddenWindows, On

Process, Exist, vidalia.exe
WinGet, hWnd,, ahk_pid %ErrorLevel%

MsgBox, % TrayIcons("vidalia.exe")

WM_RBUTTONDOWN   = 0x0204
WM_RBUTTONUP   = 0x0205

PostMessage, nMsg, uID, 0x204, , ahk_id %hWnd%
PostMessage, nMsg, uID, 0x205, , ahk_id %hWnd%

Return

;...Functions for TrayIcon are below this line...

DetectHiddenWindows, On
TI := TrayIcons( "vidalia.exe" )
StringSplit,TIV, TI, |
uID  := RegExReplace( TIV4, "uID: " )
Msg  := RegExReplace( TIV5, "MessageID: " )
hWnd := RegExReplace( TIV6, "hWnd: " )

PostMessage, Msg, uID,0x204,, ahk_id %hWnd% ; Right Click down
PostMessage, Msg, uID,0x205,, ahk_id %hWnd% ; Right Click Up

;#NoTrayIcon      ; uncomment these three lines to test standalone
;TrayIcon_CleanUp()
;Return

; Based on TrayIcon by Sean @ http://www.autohotkey.com/forum/topic17314.html
TrayIcon_CleanUp()
{   ; Remove abandoned icons in notification tray, such as left behine by "Process Close"
   ; v0-2      - Work from Button Count to zero to catch bug where icons are renumbered
   ;         -  eg Remove #2, #3 becomes #2, loop goes to test #3 so new #2 not checked, thanks ruespe*
   DetectHiddenWindows, On
   ControlGet, hWndTray, hWnd,, Notification Area, ahk_class Shell_TrayWnd
   WinGet, pidTaskbar, PID, ahk_class Shell_TrayWnd
   hProc := DllCall("OpenProcess", "Uint", 0x38, "int", 0, "Uint", pidTaskbar)
   pRB := DllCall("VirtualAllocEx", "Uint", hProc, "Uint", 0, "Uint", 20, "Uint", 0x1000, "Uint", 0x4)
   VarSetCapacity(btn, 20)
   VarSetCapacity(nfo, 24)
   SendMessage, 0x418, 0, 0,, ahk_id %hWndTray%   ; TB_BUTTONCOUNT
   
   While_Index := ErrorLevel
   While (--While_Index >= 0)
   {
      SendMessage, 0x417, While_Index, pRB,, ahk_id %hWndTray%   ; TB_GETBUTTON
      DllCall("ReadProcessMemory", "Uint", hProc, "Uint", pRB, "Uint", &btn, "Uint", 20, "Uint", 0)
      dwData   := NumGet(btn,12)
      DllCall("ReadProcessMemory", "Uint", hProc, "Uint", dwData, "Uint", &nfo, "Uint", 24, "Uint", 0)
      hWnd   := NumGet(nfo, 0)
      uID   := NumGet(nfo, 4)      
      if !WinExist("ahk_id " . hWnd)
         TrayIcon_Remove(hWnd,uID)
   }
   DllCall("VirtualFreeEx", "Uint", hProc, "Uint", pRB, "Uint", 0, "Uint", 0x8000)
   DllCall("CloseHandle", "Uint", hProc)
   Return   sTrayIcon_CleanUp
}
TrayIcon_Remove(hWnd, uID, nMsg = 0, hIcon = 0, nRemove = 2)
{
   DetectHiddenWindows, On
   NumPut(VarSetCapacity(ni,444,0), ni)
   NumPut(hWnd , ni, 4)
   NumPut(uID  , ni, 8)
   NumPut(1|2|4, ni,12)
   NumPut(nMsg , ni,16)
   NumPut(hIcon, ni,20)
   Return   DllCall("shell32\Shell_NotifyIconA", "Uint", nRemove, "Uint", &ni)
}