如何在我的Delphi控制台应用程序中运行控制台应用程序？

在Delphi控制台应用程序中运行控制台应用程序可以通过使用ShellExecute函数来实现。ShellExecute函数是Windows API中的一个函数，它可以启动一个外部程序并传递参数。

以下是一个示例代码，展示如何在Delphi控制台应用程序中运行控制台应用程序：

uses
  Windows, SysUtils;

procedure RunConsoleApp(const AppPath: string; const Args: string);
begin
  ShellExecute(0, 'open', PChar(AppPath), PChar(Args), nil, SW_SHOW);
end;

begin
  try
    // 运行控制台应用程序
    RunConsoleApp('C:\Path\To\Your\ConsoleApp.exe', '');
  except
    on E: Exception do
      Writeln('Error: ' + E.Message);
  end;
end.

在上述代码中，RunConsoleApp过程接受控制台应用程序的路径和参数作为参数，并使用ShellExecute函数来启动该应用程序。你可以将控制台应用程序的路径和参数替换为你自己的应用程序。

需要注意的是，ShellExecute函数会在新的进程中启动控制台应用程序，并且不会等待应用程序的执行完成。如果你希望等待控制台应用程序执行完成后再继续执行Delphi控制台应用程序的代码，可以使用ShellExecuteEx函数，并设置其参数中的fWait字段为True。

希望这个回答对你有帮助！如果你有任何其他问题，请随时提问。