Mehrere Instanzen auf einmal schließen

[ramboni]

Hallo zusammen,

ich bastel gerade an einem kleinen Projekt bei dem ich ca. 10 - 20 Instanzen meines Programmes
öffnen kann (nicht muss), nun wollte ich das schließen für den User etwas einfacher gestalten
(da vor dem schließen noch abschließende Arbeiten getan werden müssen (vom Programm)) und einen Button "Alle schließen" erstellen.

Nur .... naja... wie kann ich das am Besten machen? Erste Überlegungen gingen in Richtung:
- Programm guckt alle x Sekunden ob eine bestimmte Datei existiert, wenn ja schließ dich....

Aber schön ists so ja nicht Ideen?

[Benedikt Magnus]

Mir fielen da mehrere Sachen ein, am einfachsten wäre wohl, einen Broadcast zu schicken, das alle geöffneten Programme erhalten und sich anschließend schließen. Oder die erste geöffnete Instanz fungiert als Server, bei dem sich die folgenden Instanzen anmelden.
Will man Netzwerk vermeiden, könnte man ebenso die Prozessliste durchgehen und Messages verschicken. Auch hier könnte man wieder die erste geöffnete Instanz als Mittler verwenden.
Oder das hier (wo auch noch ein paar Methoden genannt werden, wenngleich etwas älter):
https://www.delphi-treff.de/tutorial...-mapped-files/

[himitsu]

oder FindWindow/FindWindowEx und dann PostMessage+WM_QUIT

[ramboni]

Der Titel des Forms ändert sich sekündlich, geht das trotzdem?

[himitsu]

Dann eben über den Klassennamen der Form und und nicht die Caption. (auch besser, bezüglich Lokalisierung)

Eventuell besser auch noch den Namen der EXE prüfen, falls der Klassenname sowas wie TForm1 ist
(den Thread der gefundenen Form nennt dir Windows und davon schaut man dann, zu welchem Programm der Thread gehört)

Oder du verwendest IPC und sendest direkt an die Anwendungen.
z.B. RegisterWindowMessage und dann einen Broadcast (PostMessage) an "alle" TopLevel-Fenster.
Deine Programme hören/verstehen dabei diese Message und machen dann etwas.

[ramboni]

Danke, werde es versuchen