一段托盘程序的代码，程序退出后，托盘区的图标不能及时消失，大家来看看什么问题

2002-04-28 05:10:19 227 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Win11任务栏图标消失？从原理到修复的完整指南系统托盘（通知区域）是Windows操作系统中用于快速访问音量、网络、输入法等关键系统功能及监控后台程序的核心界面组件。其工作原理涉及Explorer.exe进程的图形渲染、与设置应用的进程间通信以及注册表配置的协同管理。在Windows 11中，由于系统UI架构的更新，托盘图标的管理机制更为复杂，其技术价值在于为用户提供了高效、集中的系统状态访问入口。然而，在实际工程实践中，Explorer.exe进程状态异常、第三方软件图标兼容性问题或系统文件损坏都可能导致托盘图标折叠功能失效或图标显示异常，直接影响用阅读详情

托盘区的图标不能及时消失，把鼠标放上去，托盘图标才消失。
//托盘源码
unit Utuopan;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus,shellapi;

const
WM_TRAYNOTIFY=2000;
MY_TRAY_ICON=1000;

type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
N2: TMenuItem;
procedure N2Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure OnMin(Sender: TObject);
procedure WMTrayNotify(var Msg : TMessage);Message WM_TRAYNOTIFY;
end;

var
form1: Tform1;
nid:TNOTIFYICONDATA;

implementation

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE,@nid);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMinimize:=OnMin;
end;

procedure Tform1.OnMin(Sender: TObject);
begin
nid.cbSize:=Sizeof(TNOTIFYICONDATA);
nid.Wnd:=Handle;
nid.uID:=MY_TRAY_ICON;
nid.uFlags:=NIF_TIP OR NIF_ICON OR NIF_MESSAGE;
nid.hIcon:=Application.Icon.Handle;
nid.szTip:='我的程序';
nid.uCallbackMessage:=WM_TRAYNOTIFY;
Shell_NotifyIcon(NIM_ADD,@nid);
ShowWindow(Application.Handle,SW_HIDE);
end;

procedure Tform1.WMTrayNotify(var Msg: TMessage);
var
p:TPoint;
begin
if Msg.LParam=WM_LBUTTONDBLCLK then
begin
nid.cbSize:=Sizeof(TNOTIFYICONDATA);
nid.Wnd:=Application.Handle;
nid.uID:=MY_TRAY_ICON;
nid.uFlags:=NIF_TIP OR NIF_ICON OR NIF_MESSAGE;
nid.uCallbackMessage:=WM_TRAYNOTIFY;
nid.szTip:='';
//Shell_NotifyIcon(NIM_ADD,@nid);
ShowWindow(Application.Handle,SW_SHOW);
Application.Restore;
end
else if Msg.LParam=WM_RBUTTONUP then
begin
GetCursorpos(p);
PopupMenu1.Popup (p.x,p.y);
end;
end;

end.

...全文