使用Shell_NotifyIcon添加任务托盘图标重复

[superfireware]

创建一个服务，服务启动后在任务托盘显示程序图标，结果出现两个程序图标，添加图标的代码如下：

procedure TFrmMain.AddIconToTray;
begin
  ZeroMemory(@IconData, SizeOf(TNotifyIconData));
  IconData.cbSize := SizeOf(TNotifyIconData);
  IconData.Wnd := Handle;
  IconData.uID := 1;
  IconData.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
  IconData.uCallbackMessage := WM_TrayIcon;
  IconData.hIcon := Application.Icon.Handle;
  IconData.szTip := 'MediaPlayerService';
  Shell_NotifyIcon(NIM_ADD, @IconData);
end;

请问是什么原因？

[蓝色光芒]

检查该过程是否被执行了2次,加个ShowMessage就知道了
应该判断是否已经存在了,如果存在了就不再增加了,或者先删除再增加.

[hsfzxjy]

有可能是上一个图标未删除，你查看一下