Systray + Gauge1.Progress = FEHLOOOOR

[dahead]

mhh.

Delphi-Quellcode:

var
  HintText: String;
begin
  HintText := IntToStr(Gauge1.Progress);
  with NIM do
   begin
    Move(HintText[1], szTip, Length(szTip));
    Shell_NotifyIcon(NIM_MODIFY, @TrayIcon);
   end;
end;

kann das leider gerade nicht ausprobieren, könnte aber funktionieren.