托盘隐藏&显示托盘图标

IsHide:=True, Program:="QQ.exe" F1:: TrayIconInfo:=TrayIcon_GetInfo(Program) for Section,element In TrayIconInfo { TrayIcon_Hide(element.idCmd, element.Tray, IsHide),IsHide:=!IsHide } Return TrayIcon_Remove(hWnd, uId) { VarSetCapacity(NID, szNID := ((A_IsUnicode ? 2 : 1) * 384 + A_PtrSize*5 + 40),0) NumPut( szNID, NID, 0 ) NumPut( hWnd, NID, A_PtrSize ) NumPut( uId, NID, A_PtrSize*2 ) Return DllCall("Shell32.dll\Shell_NotifyIcon", UInt,0x2, UInt,&NID) } TrayIcon_Delete(idx, sTray:="Shell_TrayWnd") { d := A_DetectHiddenWindows DetectHiddenWindows, On idxTB := TrayIcon_GetTrayBar() SendMessage, 0x0416, idx, 0, ToolbarWindow32%idxTB%, ahk_class %sTrayPlace% ; TB_DELETEBUTTON = 0x0416 SendMessage, 0x001A, 0, 0, , ahk_class %sTrayPlace% DetectHiddenWindows, %d% } TrayIcon_Hide(idCmd, sTray:="Shell_TrayWnd", bHide:=True) { d := A_DetectHiddenWindows DetectHiddenWindows, On idxTB := TrayIcon_GetTrayBar() SendMessage, 0x0404, idCmd, bHide, ToolbarWindow32%idxTB%, ahk_class %sTray% ; TB_HIDEBUTTON SendMessage, 0x001A, 0, 0, , ahk_class %sTray% DetectHiddenWindows, %d% } TrayIcon_GetInfo(sExeName := "") { d := A_DetectHiddenWindows DetectHiddenWindows, On oTrayInfo := [] For key,sTray in ["Shell_TrayWnd", "NotifyIconOverflowWindow"] { idxTB := TrayIcon_GetTrayBar(sTray) WinGet, pidTaskbar, PID, ahk_class %sTray% hProc := DllCall("OpenProcess", UInt,0x38, Int,0, UInt,pidTaskbar) pRB := DllCall("VirtualAllocEx", Ptr,hProc, Ptr,0, UPtr,20, UInt,0x1000, UInt,0x04) szBtn := VarSetCapacity(btn, (A_Is64bitOS ? 32 : 20), 0) szNfo := VarSetCapacity(nfo, (A_Is64bitOS ? 32 : 24), 0) szTip := VarSetCapacity(tip, 128 * 2, 0) ; TB_BUTTONCOUNT = 0x0418 SendMessage, 0x0418, 0, 0, ToolbarWindow32%idxTB%, ahk_class %sTray% Loop, %ErrorLevel% { ; TB_GETBUTTON 0x0417 SendMessage, 0x0417, A_Index-1, pRB, ToolbarWindow32%idxTB%, ahk_class %sTray% DllCall("ReadProcessMemory", Ptr,hProc, Ptr,pRB, Ptr,&btn, UPtr,szBtn, UPtr,0) iBitmap := NumGet(btn, 0, "Int") idCmd := NumGet(btn, 4, "Int") fsState := NumGet(btn, 8, "UChar") fsStyle := NumGet(btn, 9, "UChar") dwData := NumGet(btn, (A_Is64bitOS ? 16 : 12), "UPtr") iString := NumGet(btn, (A_Is64bitOS ? 24 : 16), "Ptr") DllCall("ReadProcessMemory", Ptr,hProc, Ptr,dwData, Ptr,&nfo, UPtr,szNfo, UPtr,0) hWnd := NumGet(nfo, 0, "Ptr") uId := NumGet(nfo, (A_Is64bitOS ? 8 : 4), "UInt") msgId := NumGet(nfo, (A_Is64bitOS ? 12 : 8), "UPtr") hIcon := NumGet(nfo, (A_Is64bitOS ? 24 : 20), "Ptr") WinGet, nPid, PID, ahk_id %hWnd% WinGet, sProcess, ProcessName, ahk_id %hWnd% WinGetClass, sClass, ahk_id %hWnd% If ( !sExeName || sExeName == sProcess || sExeName == nPid ) { DllCall("ReadProcessMemory", Ptr,hProc, Ptr,iString, Ptr,&tip, UPtr,szTip, UPtr,0) oTrayInfo.Push({ "idx" : A_Index-1 , "idcmd" : idCmd , "pid" : nPid , "uid" : uId , "msgid" : msgId , "hicon" : hIcon , "hwnd" : hWnd , "class" : sClass , "process" : sProcess , "tooltip" : StrGet(&tip, "UTF-16") , "tray" : sTray }) } } DllCall("VirtualFreeEx", Ptr,hProc, Ptr,pRB, UPtr,0, UInt,0x8000) DllCall("CloseHandle", Ptr,hProc) } DetectHiddenWindows, %d% Return oTrayInfo } TrayIcon_GetTrayBar(sTray:="Shell_TrayWnd") { d := A_DetectHiddenWindows DetectHiddenWindows, On WinGet, ControlList, ControlList, ahk_class %sTray% RegExMatch(ControlList, "(?<=ToolbarWindow32)\d+(?!.*ToolbarWindow32)", nTB) Loop, %nTB% { ControlGet, hWnd, hWnd,, ToolbarWindow32%A_Index%, ahk_class %sTray% hParent := DllCall( "GetParent", Ptr, hWnd ) WinGetClass, sClass, ahk_id %hParent% If !(sClass == "SysPager" || sClass == "NotifyIconOverflowWindow" ) Continue idxTB := A_Index Break } DetectHiddenWindows, %d% Return idxTB }