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!?!