Shellexecute im selben (Konsolen)Fenster

[Ajin]

Hallo DP!

Delphi-Quellcode:

program Project1;
uses
  windows, shellapi;

{$R *.res}
{$APPTYPE CONSOLE}

  begin
      allocConsole;
    try

      if paramcount=0 then
      begin
       writeln('Starte Anwendung ohne Parameter');
       ShellExecute(0, 'open', PChar('ext_proc.exe'), nil, nil, SW_SHOW);
      end;

      if paramcount=1 then
      begin
       writeln('Starte Prolog mit: '+ParamStr(1));
       ShellExecute(0, 'open', PChar('ext_proc.exe'+ParamStr(1)), nil, nil, SW_SHOW);
      end;

    finally
      Freeconsole;
    end;
end.

Wie kann ich das Konsolenprogramm ext_proc.exe im gleichen Konsolenfenster aufrufen wie meine eigene Anwendung? Es geht immer ein neues Shell Fenster auf...