Systray + Gauge1.Progress = FEHLOOOOR

[dahead]

ich hab es wie folgt geschafft:

Delphi-Quellcode:

var
  tmpStr: String;
begin
  Form1.FormStyle:=fsStayOnTop;
  Hide;
  with NIM do begin
    cbSize := SizeOf (nIM);
    Wnd := Handle;
    uID := 0;
    uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
    uCallbackMessage := IC_CLICK;
    hIcon := Application.Icon.Handle;
    tmpStr := IntToStr(Gauge1.Position);
    Move(tmpStr[1], szTip, Length(szTip));
  end;
  Shell_NotifyIcon(NIM_ADD, @NIM);