//刷新任务栏图标 终止别的进程序有些程序有托盘会残留

Posted 2020-09-08 哥,我还要

1. //刷新任务栏图标  
2. function RefreshTaskbarIcon: Integer;  
3. var  
4.   hShellTrayWnd: HWND;   //任务栏窗口  
5.   hTrayNotifyWnd: HWND;  //任务栏右边托盘图标+时间区  
6.   hSysPager: HWND;     //不同系统可能有可能没有这层  
7.   hToolbarWindow32: HWND;  //托盘图标窗口    
8.   r: TRECT;  
9.   width, height: integer;  
10.   x: Integer;  
11. begin  
12.   hShellTrayWnd  := FindWindow(‘Shell_TrayWnd‘,nil);  
13.   hTrayNotifyWnd := FindWindowEx(hShellTrayWnd,0,‘TrayNotifyWnd‘,nil);  
14.   hSysPager := FindWindowEx(hTrayNotifyWnd,0,‘SysPager‘,nil);   
15.   if (hSysPager <> 0) then  
16.         hToolbarWindow32 := FindWindowEx(hSysPager,0,‘ToolbarWindow32‘,nil)  
17.   else  
18.     hToolbarWindow32 := FindWindowEx(hTrayNotifyWnd,0,‘ToolbarWindow32‘,nil);  
19.   
20.   if (hToolbarWindow32 <> 0) then  
21.   begin  
22.     GetWindowRect(hToolbarWindow32,r);  
23.     width := r.right - r.left;  
24.     height := r.bottom - r.top;  
25.     //从任务栏中间从左到右 MOUSEMOVE一遍，所有图标状态会被更新    
26.     for x := 1 to width-1 do  
27.       SendMessage(hToolbarWindow32,WM_MOUSEMOVE,0,MAKELPARAM(x,trunc(height/2)));  
28.   end;  
29. end;