Anwendung schließen wenn andere Anw beendet ist

[ScullCollector]

Hi
Folgendes Problem:

Mein Programm startet zwei Programme von Drittanbietern und läuft dann weiter. Wenn man jetzt die eine gestartete Anwendung schließt soll die andere automatisch auch geschlossen werden und nur mein Programm soll übrig bleiben.

Ich habs damit versucht:

Code:

procedure TForm1.TimCheckTimer(Sender: TObject);
var
  hGenerals, hccgSandbox : hWND;
  ccgsPath2: String;
begin
  hGenerals := FindWindow(nil, 'C&C: Generals ');
  //Checkt ob generals noch offen ist
    if hGenerals = INVALID_HANDLE_VALUE then
      begin
        ccgsPath2:=ccgsPaths + ' ';
        hccgSandbox := FindWindow(nil, PChar(ccgsPath2));
        CloseWindow(hccgSandbox);
      end;
end;

Ein Timer läuft sobald beide programme gestartet sind und überprüft jede sec ob das eine Prog noch offen ist.

Ist am code, an der Denkweise oder an den Fensternamen was falsch???

Ich hoffe ihr könnt mir helfen!?!

[Christian Seehase]

Moin ScullCollector,

ein kleiner Auszug aus dem Abschnitt "Return Value" von FindWindow:

Zitat von PSDK:

If the function fails, the return value is NULL.

Die Abfrage auf INVALID_HANDLE_VALUE stimmt also schonmal nicht.

Wie's mit den Fensternamen aussieht kann ich nicht sagen, dazu könntest Du Dir mal mit EnumWindows/EnumChildWindows (Beispiele hier im Forum zu finden), eine Liste der Fenster (und vielleicht auch deren Klassen) erstellen, um zu sehen, wie die Fensternamen denn nun genau aussehen.

Ob das zweite Fenster auf CloseWindow reagiert weiss ich nicht, allerdings schliesst CloseWindow das Fenster nicht, sondern minimiert es nur (gemäss PSDK, ausprobiert hab' ich die Funktion noch nie).
SendMessage(hWindow,WM_CLOSE,0,0) oder SendMessage(hWindow,WM_SYSCOMMAND,SC_CLOSE,0) würden eine entsprechende Aufforderung sich zu schliessen an das Fenster schicken. (ob's dann darauf reagiert ist eine andere Sache)