Bisheriger Code:
Delphi-Quellcode:
if (bActive) then
Tray.IconIndex := 0
else
Tray.IconIndex := 1;
Im Entwicklungsmodus funktioniert das aktualisieren des Icons, aber während der Laufzeit nicht. Es wäre ja theoretisch einfach ShellNotifyIcon aber wie setze ich das ein bzw. was mache ich falsch
