IconData.szTip < Variabel wie ?

[Sprint]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  S: String;
begin

  S := UpTime;
  FillChar(IconData, SizeOf(TNotifyIconData), 0);

  with IconData do
  begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd := Self.Handle;
    // uID := 100; brauchst du nicht
    uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
    uCallbackMessage := WM_USER + 20; // warum setzt du keine Konstante?
    hIcon := Application.Icon.Handle;
    if Length(S) < 64 then
      Move(S[1], szTip, Length(S))
    else
      Move(S[1], szTip, 63);
  end;

  Shell_NotifyIcon(NIM_ADD, @IconData);

end;