刷新系统托盘(清除死掉的图标)修正版

刷新系统托盘(清除死掉的图标)修正版  

2009-08-06 18:50:06|  分类： Delphi |  标签： |字号大中小 订阅

type
 TOSVersion = (osUnknown, os95, os98, osME, osNT3, osNT4, os2K, osXP, os2K3);
......
function GetOS: TOSVersion;
var
 OS: TOSVersionInfo;
begin
 ZeroMemory(@OS,SizeOf(OS));
 OS.dwOSVersionInfoSize := SizeOf(OS);
 GetVersionEx(OS);
 Result := osUnknown;
 if OS.dwPlatformId = VER_PLATFORM_WIN32_NT then
 begin
   case OS.dwMajorVersion of
     3: Result := osNT3;
     4: Result := osNT4;
     5:
     begin
       case OS.dwMinorVersion of
         0: Result:= os2K;
         1: Result:= osXP;
         2: Result:= os2K3;
       end;
     end;
   end;
 end
 else if (OS.dwMajorVersion = 4) and (OS.dwMinorVersion = 0) then
   Result := os95
 else if (OS.dwMajorVersion = 4) and (OS.dwMinorVersion = 10) then
   Result := os98
 else if (OS.dwMajorVersion = 4) and (OS.dwMinorVersion = 90) then
   Result := osME
end;

function GetSysTrayWnd(): HWND;
//返回系统托盘的句柄，适合于Windows各版本
var OS: TOSVersion;
begin
 OS := GetOS;
 Result := FindWindow('Shell_TrayWnd', nil);
 Result := FindWindowEx(Result, 0, 'TrayNotifyWnd', nil);
 if(OS in [osXP, os2K3])then
   Result := FindWindowEx(Result, 0, 'SysPager', nil);
 if(OS in [os2K, osXP, os2K3])then
   Result := FindWindowEx(Result, 0, 'ToolbarWindow32', nil);
end;

procedure RefreshTrayIcon();
//刷新系统托盘图标
var
hwndTrayToolBar : HWND;
rTrayToolBar : tRect;
x , y : Word;
begin
hwndTrayToolBar := GetSysTrayWnd;

Windows.GetClientRect(hwndTrayToolBar, rTrayToolBar);
for x:=1 to rTrayToolBar.right-1 do
begin
  for y:=1 to rTrayToolBar.bottom-1 do
  begin
    SendMessage(hwndTrayToolBar , WM_MOUSEMOVE, 0, MAKELPARAM(x,y));
  end;
end;
end;

===================================
调用RefreshTrayIcon()就OK


[笔记]隐藏指定程序的托盘图标(Delphi版)

突然想到又添加一个把“疯狂刷新”的托盘图标都隐藏的功能。于是百度了半天才弄到一个还可以的实现功能。（添加uses CommCtrl;）

procedure HideAllTrace;
var TBHWND: HWND;
    i, count: Integer;
    PID, PRC: THandle;
    Buff: PChar;
    Info: _TBBUTTON;
    R: Cardinal;
    S: array[0..1024] of char;
begin
    TBHWND := GetSysTrayWnd;
    if TBHWND = 0 then exit;

    GetWindowThreadProcessId(TBHWND, @PID);
    PRC := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE, False, PID);
    Buff := VirtualAllocEx(PRC, nil, 4096, MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);
    count := SendMessage(TBHWND, TB_BUTTONCOUNT, 0, 0); //托盘中button的个数，不一定是图标的个数，有些button是隐藏的。
    for i := 0 to count - 1 do
    begin
        FillChar(Info, SizeOf(Info), 0);
        WriteProcessMemory(PRC, Buff, @Info, SizeOf(Info), R); //消息使用的内存空间必须在Shell之内，所以利用ReadProcessMemoery和WriteProcessMemory。
        SendMessage(TBHWND, TB_GETBUTTON, i, Integer(Buff));
        ReadProcessMemory(PRC, Buff, @Info, SizeOf(Info), R);

        SendMessage(TBHWND, TB_GETBUTTONTEXT, Info.idCommand, Integer(Integer(@Buff[0]) + SizeOf(Info)));
        ReadProcessMemory(PRC, Pointer(Integer(@Buff[0]) + SizeOf(Info)), @S[0], SizeOf(S), R);
        if pos('疯狂刷新', StrPas(S)) > 0 then //如果button的TEXT中包含'疯狂刷新'
            SendMessage(TBHWND, TB_DELETEBUTTON, i, 0); //删除
    end;
    VirtualFreeEx(PRC, Buff, 0, MEM_RELEASE);
    CloseHandle(PRC);
end;

但终因这个功能太猥亵，有点你木马或恶意软件而没有添加到辅助工具里。