关于一个系统软件完全退出后图标还是缩小在电脑的右下角的问题，该如何刷新？

Question

本人开发的系统软件关闭时，是缩小在电脑显示时间附近位置（右下角，类似QQ软件），只有当完全退出才退出。但是不知道为什么完全退出后在电脑的右下角还是显示着那个小图标，不知道系统该如何去刷新这个软件？只有当鼠标移动至那里图标才会消失，请高手指点

Answer 1

procedure TForm1.FormDestroy(Sender:TObject);
var
  IconData:TNotifyIconData;
begin //卸载图标
  IconData.cbSize := SizeOf(IconData);
  IconData.Wnd := form1.Handle;
  IconData.uID := ICON_ID;
  Shell_NotifyIcon(NIM_DELETE, @IconData);
end;

Answer 2

呵呵~已经解决了~在退出的时候处理一下就可以Shell_NotifyIcon(NIM_DELETE, @IconData);
谢谢两位哦！！