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