Auflisten aller Programme, die als TrayIcon vorliegen

[ULIK]

@himitsu, @jaenicke: vielen Dank, manchmal sieht man den Wald vor lauter Bäumen nicht mehr.
@TiGü: ja, ist durchaus sinnvoll. Es handelt sich um einen Dokumenteneditor, der aber beim Start des Programms erst einmal sehr viele Daten einlesen und verarbeiten muß, ohne die die Berarbeitung wenig Sinn macht. Das ist eh schon verzögert was geht, aber irgendwann müssen die Daten halt doch mal geladen werden. Und da werden teilweise mehrere Instanzen parallel geöffnet.

Nur zur Info:

Ein Problem des Codes aus Experts-Exchange ist wohl, daß mein Icon dort gar nicht erfaßt wird: Die Bestimmung des Traybereichs liefert nur das Fenster-Handle des sichtbaren Infobereichs, nicht aber der TrayIcons, die im Popup daneben verborgen sind.

Hier müßte man wohl noch zusätzlich mit

Delphi-Quellcode:

  result := FindWindow('NotifyIconOverflowWindow', nil);
  if (result <> 0) then
  begin
    result := FindWindowEx(result, 0, 'ToolbarWindow32', nil);
  end;

diesen Bereich erfassen. Allerdings liefert mir dann das Auslesen der TrayData-Struktur der dortigen Buttons keine Daten.


Danke,
Uli