Kurze Unit zum Verwalten des Trayicons

[ichbins]

Hallo,

ich hab hier mal eine Unit zum Verwalten des Trayicons geschrieben.

Enthaltene Funktionen:

Delphi-Quellcode:

Anzeigen/Verstecken     (Beim Beenden wird das Icon automatisch entfernt)
Icon ändern             (Standard = application.icon)
Bubblemessage ausgebem  (Parameter: Titel, Text, Timeout, Typ (msinfo,mswarning,mserror), bubble anzeigen obwohl kein Icon:boolean)

die Unit ist nonVCL-kompatibel. Sie verwendet

Delphi-Quellcode:

uses
  shellapi, windows, classes;

Beigefügt ist eine kurze Beispielanwendung (D7Pers), die die Unitfunktionen umsetzt.