Как обновить иконки в трее?

[_SERGEYX_]

Собственно, сабж.
Допустим, я запустил Firebird как приложение.

WinExec(PAnsiChar('fbserver.exe -a'), SW_SHOWNORMAL);

Отобразилась иконка в трее.
Потом убил процесс

WinExec('taskkill /f /im fbserver.exe', SW_HIDE);

Иконка исчезнет только после наведения на нее мыши.
Порылся в интернете - народ предлагает программно имитировать движение мыши по трею. Некрасивый какой-то способ.

Вариант с Shell_NotifyIcon до конца не понял...
Как выловить параметр PNotifyIconDataA?

Shell_NotifyIcon(NIM_DELETE, <чего сюда писать не врубился?>)

А может есть другой способ? Чтобы обновить все иконки сразу...

[Кольша]

uses CommCtrl;
procedure UpdateSysTray;
var
  w : HWND;
  i, n : integer;
begin
  w := FindWindow ('Shell_TrayWnd', nil);
  w := FindWindowEx (w, 0, 'TrayNotifyWnd', nil);
  w := FindWindowEx (w, 0, 'SysPager', nil);
  w := FindWindowEx (w, 0, 'ToolbarWindow32', nil);
  n := SendMessage(w, TB_BUTTONCOUNT, 0, 0);
  for i := 0 to n-1 do
    PostMessage(w, WM_MOUSEMOVE, 0, 0);
end;

[FaTaL]

Лучше тогда не убивать процесс через TaskKill, а посылать приложению сообщение WM_CLOSE и тогда сервер закроется нормально и иконку в трее уберёт сам.