Close TrayIcon Balloon Programmatically

Question

Можно ли программным путем закрыть подсказку шара TTrayIcon?

Проблема:

У меня есть таймер, который проверяет наличие сообщений каждую минуту. Когда он обнаруживает сообщение (., Например, ABC служба остановлена), он показывает всплывающее окно с сообщением:

procedure TFrmTest.tmrTimer(Sender: TObject); 
begin 
    tmr.Enabled := False; 
    try 
    if IsAnyServiceStopped then 
     ShowBallon(bfError, 'The ABC Service is stopped. Do something!!!'); 
    finally 
    tmr.Enabled := True; 
    end; 
end; 

procedure TfrmTest.ShowBallon(pFlag: TBalloonFlags; pMessage: string); 
begin 
    try 
    // HERE I'D LIKE TO CLOSE THE BALLOON IF IT'S OPENNED 
    TrayIcon.BalloonFlags := pFlag; 
    TrayIcon.BalloonHint := pMessage; 
    TrayIcon.ShowBalloonHint; 
    except 
    end; 
end; 

TrayIcon BalloonTimeOut установлен в 3000 (3 секунды). Поскольку таймер запускает сообщение каждую минуту (когда есть какое-либо сообщение), если пользователь не закрывает его, система создает очередь сообщений. Если пользователь вернется на ПК через 30 минут (например), они закроют первое сообщение, а затем значок в трее отобразит второе сообщение и то же самое для следующих 28 сообщений (плохой пользователь).

Я знаю, что воздушный шар автоматически закрывается, но он закрывается, только если пользователь делает какой-либо ввод (движение мыши, нажатие клавиши и приложение не нужно фокусировать или даже видеть). Поэтому, если пользователь находится далеко от компьютера, баллон остается там навсегда до входа.

Другое решение, которое я пытался, было отключить Таймер при отображении любого шара и включить его снова, только когда пользователь закрывает текущий воздушный шар (или он автоматически закрывается). Но я не мог найти способ узнать, когда воздушный шар закрыт (событие OnBalloonClick не срабатывает, если пользователь нажимает на X или он автоматически закрывается).

Answer 1

Ссылка для NOTIFYICONDATA структуры описывает, как скрыть баллонной подсказку в описании szInfo члена:

Чтобы удалить уведомление воздушного шара из пользовательского интерфейса, либо удалить значок (с NIM_DELETE) или установить NIF_INFO в uFlags и установите szInfo в пустую строку.

Для TTrayIcon компонента (по крайней мере, в версии Delphi) легко встретить последний вариант, потому что, когда TTrayIcon показывает уведомление на воздушном шаре, то NIF_INFO флаг установлен, так что остается установка szInfo члена пустая строка. В TTrayIcon составляющей, szInfo элемент может быть изменен BalloonHint собственности, так, чтобы скрыть отображаемую на воздушном шаре подсказку вы можете просто написать:

TrayIcon.BalloonHint := '';