Aus eigener Anwendung Konsolenfenster starten und schließen

[SevenOfNine]

Hallo zusammen,

ich möchte aus meiner Anwendung ein anderes Programm starten (Konsolenfenster).
Dies funktioniert auch. In meinem Programm kann ich auch ermitteln, ob das
Konsolenfenster geschlossen wird (durch Anwender oder weil der Prozess darin endet).

Ich möchte das Konsolenfenster nun auch von meinem Programm schließen.
Dies bekomme ich irgendwie nicht hin.

TerminateProcess(SEInfo.hProcess, 0);
CloseHandle(SEInfo.hProcess);
... zeigen keine Wirkung.

Mittels PostMessage und WM_CLOSE gehts nicht, da ich kein Handle des Konsolenfensters habe.

Zum Testen starte ich mit SW_SHOWNORMAL, da möchte ich später SW_HIDE verwenden.

Kann mir jemand hierzu Tipps geben.


Danke,
Seven

(Im Forum habe ich schon gesucht, es geht möglicherweise über CreateProcess anstelle über ShellExecuteEx?!)

Code:

var
  SEInfo: TShellExecuteInfo;
begin
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
SEInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
SEInfo.Wnd := Application.Handle;

SEInfo.lpFile := PChar(MeinExeFileString);
SEInfo.lpParameters := PChar(MeineParameterString);
SEInfo.lpDirectory := PChar('D:\');

SEInfo.nShow := SW_SHOWNORMAL;
//SEInfo.nShow := SW_HIDE;
        
ShellExecuteEx(SEInfo); // hier mal ohne Auswertung

// Konsolenfenster ist nun geöffnet
// ...
sleep(2000);

// nun möchte ich den Prozess beenden und das Konsolenfenster schließen
// das passiert aber nun nicht ...

TerminateProcess(SEInfo.hProcess, 0);
CloseHandle(SEInfo.hProcess);

//PostMessage(Wnd, WM_CLOSE, 0,0); geht nicht, da ich kein FensterHandle habe

Der Code zum Prüfen, ob das Konsolenfenster "extern" geschlossen wird (funktioniert) ...

Code:

GetExitCodeProcess(SEInfo.hProcess, ExitCode);
if (ExitCode <> STILL_ACTIVE) OR Application.Terminated then
begin
   // ...
end;