Code: Select all
hTaskbar = FindWindow_("Shell_TrayWnd", "")
Debug Hex(hTaskbar)
hTray = FindWindowEx_(hTaskbar, 0, "TrayNotifyWnd", "")
Debug Hex(htray)
hTray = FindWindowEx_(hTray, 0, "SysPager", "")
Debug Hex(htray)
n1 = GetWindow_(hTray,#GW_CHILD)
Debug Hex(n1)
nr=SendMessage_(n1,#TB_BUTTONCOUNT, 0, 0)
Debug Hex(n1)+", "+Str(nr)
Button.TBBUTTON
For i = 0 To nr-1
Debug SendMessage_(n1,#TB_GETBUTTON,i,@Button)
With Button
Debug " - Icon #" + Str(i)+": "+Str(\iString)
EndWith
Next