Einzelnen Beitrag anzeigen

pertzschc

Registriert seit: 29. Jul 2005
Ort: Leipzig
305 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: Auflisten aller Programme, die als TrayIcon vorliegen

  Alt 16. Aug 2017, 20:24
Die einfachste Variante ist einen Mutex zu erzeugen (CreateMutex) sobald die Anwendung in die Tray minimiert wird. Wird von der zweiten Anwendung der Mutex gefunden (OpenMutex liefert Wert <> 0), was vor der Erzeugung geprüft werden muss, beendet sich diese Instanz stattdessen. Wird die Anwendung aus der Tray wiederhergestellt, wird der Mutex wieder freigegeben (CloseHandle).
Das ist doch die Lösung, da musst Du mit Findwindow etc. nicht weiter probieren.
Grüße, Christoph
  Mit Zitat antworten Zitat