Consolen-Programm in selber Console

[Martin K]

So, danke erstmal für eure Antworten.

Also das hat soweit geklappt:

Zitat von Apollonius:

Man muss einfach nur CreateProcess mit den Default-Parametern aufrufen, dann wird die Konsole vererbt.

Habe das mithilfe von der Code-Library umgesetzt und es kam dieser Code heraus:

Delphi-Quellcode:

var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  s: string;

  begin
    // s := 'Dateiname.exe "Meine Parameter"';
    WriteLN('Run:');
    WriteLN(s+#13#10);
    FillChar(StartupInfo, SizeOf(StartupInfo), #0);
    StartupInfo.cb := SizeOf(StartupInfo);
    if CreateProcess(nil, PChar(s), nil, nil, False, 0, nil, nil, StartupInfo, ProcessInfo) then
    begin
      WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
      if ProcessInfo.hProcess <> 0 then
        CloseHandle(ProcessInfo.hProcess);
      if ProcessInfo.hThread <> 0 then
        CloseHandle(ProcessInfo.hThread);
    end
    else
      WriteLN('Cannot run this program');
    WriteLN('Program finished');
  end.