SingleInstanceOnly und TNA

[taaktaak]

Moin, Moin.

Mit der Kombination beider Themen habe ich ein heftiges Problem:

Ein Programm darf optional nur einmalig gestartet werden, falls bereits eine erste Instanz existiert, wird auf diese umgeschaltet und, falls minimiert, auch wieder sichtbar gemacht.

Delphi-Quellcode:

..
repeat
  FHnd:=Windows.FindWindowEx(0,FHnd,
                             PChar('TApplication'),
                             PChar(Application.Title))
  until FHnd<>Application.Handle;

if (FHnd<>0) then begin
  ShowWindow         (FHnd,SW_Restore);
  SetForegroundWindow(FHnd);
  end;
..

Das Prüfung, ob bereits eine Instanz aktiv ist, funktioniert! Das Sichtbarmachen des minimierten Fensters aus der Taskbar heraus, funktioniert ebenfalls einwandfrei.

Alternativ zur Nutzung der Taskbar bietet das Programm aber auch die Möglichkeit, die TNA zu verwenden. Wird diese Variante genutzt und ist das Programmfenster gerade unsichtbar, haben ShowWindow() und SetForegroundWindow() keine bleibende Wirkung - das Programmfenster wird nicht dauerhaft aus der TNA hervorgeholt und angezeigt. Das hierfür verwendete Handle habe ich überprüft - das ist korrekt.

Habe schon verschiedenste Konstanten für ShowWindow() ausprobiert und auch sehr lange die DP-Suche bemüht, bisher hat nix geholfen. Hat da einer eine Idee...


//edit - Noch eine wichtige Zusatzinformation: In der relativ langsamen VM ist zu erkennen, dass das Wiederanzeigen des Fensters aus der TNA zunächst erfolgt (!) aber das Fenster auch sofort wieder geschlossen wird! (dies noch 'mal als konkretes Beispiel, dass eine "Programm-Bremse" u.U. wichtige Erkenntnisse liefern kann)

[pertzschc]

Ich denke, Deine 2. Instanz sollte der 1. laufenden TNA Instanz eine Message schicken, auf die die laufende 1. Instanz so reagiert, als hätte der Benutzer auf dem TNA Symbol ein Wiederherstellen des MainForm o.ä. angefordert. Das Handle der 1. Instanz zum zielgerichteten Senden hast Du ja nach Deiner Suche bereits.

Gruß,
Christoph

[taaktaak]

Moin, Moin Christoph.

Zitat:

... 2. Instanz sollte der 1. laufenden TNA Instanz eine Message schicken ...

Das war auch eine meiner ersten Ideen; die Umsetzung wollte aber nicht gelingen. Vielleicht wegen einer gewissen Gereiztheit aufgrund des unerwarteten und nervigen Programm-Fehlverhaltens - werde das noch mal in Ruhe zu lösen versuchen.