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

Posted 哥,我还要

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了//刷新任务栏图标 终止别的进程序有些程序有托盘会残留相关的知识,希望对你有一定的参考价值。

  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 := to width-do  
  27.       SendMessage(hToolbarWindow32,WM_MOUSEMOVE,0,MAKELPARAM(x,trunc(height/2)));  
  28.   end;  
  29. end;  

以上是关于//刷新任务栏图标 终止别的进程序有些程序有托盘会残留的主要内容,如果未能解决你的问题,请参考以下文章

请问怎样使程序在最小化后图标放在任务栏的托盘上?

如何使用系统托盘/任务栏图标制作跨平台 Kivy 应用程序,即使应用程序没有聚焦/处于任务栏模式,它也会检测键盘输入

java应用程序系统托盘的问题

怎样让VB编写的程序打开后不在任务栏显示

Qt开发实现系统托盘,托盘菜单,托盘消息

WinForm 之 窗口最小化到托盘及右键图标显示菜单