Tray-Icon entfernen nach Beenden des Prozesses

[ernschd]

Hi,
ich habe eine Routine, um einen Windows-Prozess zu beenden(ein fremdes Programm). Danach wird aber immer noch das Icon im SysTray angezeigt. Also habe ich eine vorhandene(und funktionierende) VB6-Funktion in Delphi konvertiert. Leider funktioniert sie dort jedoch nicht.

Ich habe schon die verschiedenen Kombinationen durchprobiert, unter anderem:

Delphi-Quellcode:

InvalidateRect(hSysTray, @rRect, True);
SendMessage(hSysTray, WM_PAINT, 0, 0);
SendMessage(hTray, WM_MOUSEMOVE, 0, 0);

Alles ohne Erfolg.

Hat jemand ein funktionierendes Codebeispiel für mich?

Danke & Gruß,
Ernschd