刷新系統托盤(清除死掉的圖標)修正版??

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;

但終因這個功能太猥褻，有點你木馬或惡意軟件而沒有添加到輔助工具里。

總結

以上是生活随笔為你收集整理的刷新系统托盘(清除死掉的图标)修正版的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。