Mehrere Tray-Icons (ohne Komponente)

[ManuMF]

Hallo,

ich möchte für mein Programm mehrere Icons im Tray anzeigen. Mit einem hat es bis jetzt prolemlos funktioniert. Ich möchte auch keine Komponente dafür verwenden, da ich mit mehreren Probleme hatte.

Der Code ist (abgewandelt) von DSDT.info:

Delphi-Quellcode:

procedure TaskBarAddIcon(TNID: TNotifyIconData; IIcon: TIcon; IInfo: String);
begin
  with TNID do
  begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd := MainForm.Handle;
    uID := 1;
    uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
    uCallbackMessage := WM_TASKBAREVENT;
    hIcon := IIcon.Handle;
    StrCopy(szTip, PChar(IInfo));
  end;
  Shell_NotifyIcon(NIM_ADD, @TNID);
end;


procedure TaskBarRemoveIcon(TNID: TNotifyIconData);
begin
  Shell_NotifyIcon(NIM_DELETE, @TNID);
end;

Bisher habe ich TNID global deklariert.
var TNID: TNotifyIconData; Das hat gut geklappt. Also habe ich das duch folgendes ersetzt:
var Icon1, Icon2: TNotifyIconData; uns TNID stattdessen als Prozedur-Parameter eingefügt.

Wenn ich nun die Add-Funktion 2 mal ausführe (1. mit Icon1, 2. mit Icon2), wird nur das Icon1 angezeigt. Woran könnte das liegen?

Danke,
ManuMF

[Edit]Sorry, sollte eigentlich in Sonstiges zu Delphi[/edit]

[Muetze1]

Nutze eine unterschiedliche ID in der NOTIFYICONDATA Struktur....

[ManuMF]

Hallo,

Das habe ich probiert, aber ohne Erfolg .

Ich habe mir jedoch eine eigene Komponente geschrieben, die diesen Code verwendet, und mit dieser funktioniert es wunderbar! Ich habe sie bisher nur nicht verwendet, da sie in einem anderen Projekt seltsamerweise immer eine Zugriffsverletzung erzeugte (habe ich auch hier geschildert).

Also, damit hat es sich erledigt.

Gruß,
ManuMF

[SirThornberry]

aus irgend einem Grund wird in den meisten Beispielen eine Globale für die Traystrukutur genutzt. Ich würde einfach empfehlen eine Private-Variable daraus zu machen, und bei Nutzung verschiedener ID's gibt es auch keine Probleme zwei strukuren im Tray zu registrieren. Eventuell hast du ja in deinem Projekt der Methode zum Registrieren 2 mal die gleiche Struktur übergeben.