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

Question

创建一个服务，服务启动后在任务托盘显示程序图标，结果出现两个程序图标，添加图标的代码如下：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;
请问是什么原因？

Answer 1

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