Sichtbarkeit des ShellIcons ermitteln

[Schwedenbitter]

Ich habe vor ein paar Jahren mit TurboDelphi ein Programm erstellt, dass bislang unter Windows XP perfekt lief.
XP ist ja jetzt nicht mehr so das Wahre; kurzum sind wir auf Windows 7 umgestiegen.

Das Programm wurde/wird ausnahmslos über ein TrayIcon gesteuert. Das Icon wird mit

Delphi-Quellcode:

Shell_NotifyIcon();

installiert bzw. geändert. Jetzt ist aber das Problem, dass unter Windows 7 hin und wieder eben dieses TrayIcon verschwindet. Dann kommt man an mein Programm nicht mehr ran :evil:
Jetzt wäre mein Workaround zunächst, das Icon mit einem Timer immer wieder per

Delphi-Quellcode:

Shell_NotifyIcon(NIM_MODIFY ,@nid);

drüberzubügeln - falls das überhaupt funktioniert. Allerdings finde ich das weder elegant noch professionell. Unter Windows 8/8.1 besteht das Problem übrigens nicht! Daher meine Frage:

Wie finde ich heraus, ob mein Icon noch unten rechts angezeigt wird?
Kann ich mir dazu ein Ereignis kommen lassen? (Sonst wäre ich wieder beim Timer)

Ich hoffe, mein Problem verständlich dargestellt zu haben. Anderenfalls bitte einfach nachfragen.
Gruß & Dank
Alex