为关闭程序后,任务栏的托盘图标不消失?
var
tray1,tray2: TNotifyIconData;
ico1,ico2:ticon;
//托盘程序
ShowWindow(Application.Handle,SW_HIDE);
ico1:=ticon.Create;
ico2:=ticon.create;
imagelist1.GetIcon(0,ico1);
imagelist1.geticon(1,ico2);
tray1.cbSize:=sizeof(tray1);
tray1.Wnd:=Main.Handle;
tray1.uID:=0;
tray1.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;
tray1.uCallbackMessage:=ghy_tray;
tray1.hIcon:=ico1.Handle;
tray1.szTip:='单击最小化';
Shell_NotifyIcon(NIM_ADD,@tray1);
为何在程序关闭后任务栏的图标依然存在,鼠标在其上面移动后就可消失,请问如何使其在关闭程序后自动消失?解决后立即给分!