如何手动更新托盘图标气球中的文本？

Question

我使用 CoolTrayIcon 组件，但我可以手动修改它。我想要完成的是更新我刚刚创建的气球中的文本，而不实际创建另一个气球。问题是：

function TCoolTrayIcon.ShowBalloonHint(Title: String; Text: String;
  IconType: TBalloonHintIcon; TimeoutSecs: TBalloonHintTimeOut): Boolean;
// Show balloon hint. Return false if error.
const
  aBalloonIconTypes: array[TBalloonHintIcon] of Byte =
    (NIIF_NONE, NIIF_INFO, NIIF_WARNING, NIIF_ERROR);
begin
  // Remove old balloon hint
  HideBalloonHint;
  // Display new balloon hint
  with IconData do
  begin
    uFlags := uFlags or NIF_INFO;
    StrLCopy(szInfo, PChar(Text), SizeOf(szInfo)-1);
    StrLCopy(szInfoTitle, PChar(Title), SizeOf(szInfoTitle)-1);
    TimeoutOrVersion.uTimeout := TimeoutSecs * 1000;
    dwInfoFlags := aBalloonIconTypes[IconType];
  end;
  Result := ModifyIcon;
  { Remove NIF_INFO before next call to ModifyIcon (or the balloon hint will
    redisplay itself) }
  with IconData do
    uFlags := NIF_ICON + NIF_MESSAGE + NIF_TIP;
end;

function TCoolTrayIcon.HideBalloonHint: Boolean;
// Hide balloon hint. Return false if error.
begin
  with IconData do
  begin
    uFlags := uFlags or NIF_INFO;
    StrPCopy(szInfo, '');
  end;
  Result := ModifyIcon;
end;

function TCoolTrayIcon.ModifyIcon: Boolean;
// Change icon or tooltip if icon already placed
begin
  Result := False;
  if InitIcon then
    Result := Shell_NotifyIcon(NIM_MODIFY, @IconData);
end;

我认为问题出在函数 HideBalloonHint 中，但我错了。我在 ShowBalloonHint 中评论了对 HideBalloonHint 的调用以更新文本，但它不起作用。

问题：如何只更新托盘气球中的文本而不创建另一个气球？

Answer 1

看来只有当 InitIcon 为 true 时才会设置您的图标。将您的modifyIcon 过程更改为：

function TCoolTrayIcon.ModifyIcon: Boolean;
// Change icon or tooltip if icon already placed
begin
  Result := Shell_NotifyIcon(NIM_MODIFY, @IconData);
end;

或在调用ModifyIcon 之前将InitIcon 设置为true。

编辑--
@IconData 使用的记录格式已记录在 MSDN 网站上以及 shell_NotifyIcon 调用。根据规范的内容，您应该能够传递与最初发送更新相同的记录，因为这不起作用，您可能必须采取另一种方法。

创建您的“自己的”气球提示表单，并将其放置在任务图标上方，然后直接更新。这将消除多个气球窗口。