delphi运行bat文件并获取输出

Delphi是一款流行的Object Pascal编程语言，常用于Windows开发。如果你想在Delphi中运行批处理（BAT）文件并获取其输出，可以采用以下几种方法：

1. **使用ShellExecute函数**：Delphi的标准库提供了`ShellExecute`函数，可以用来执行外部程序。例如：

uses ShellUtil;

var
  ExecInfo: TExecInfo;
begin
  ExecInfo.Executable := 'cmd.exe';
  ExecInfo.WorkingDir := '.'; // 设置工作目录
  ExecInfo.Arguments := '/c "your.bat"'; // 运行bat文件
  if ShellExecute(Handle, 'open', PChar(ExecInfo.Executable), PChar(ExecInfo.Arguments), nil, SW_SHOWDEFAULT) = 0 then
  begin
    ShowMessage('Failed to execute bat file.');
  end
  else
  begin
    // 读取命令行输出
    with ExecInfo do
      while not Terminated do
        ReadLine(Output);
    // 处理输出，比如显示到文本框或追加日志
    Log.Add(Output);
  end;
end;

2. **使用TProcess类**：如果你想要实时监听进程输出，可以使用`TProcess`类，它可以创建一个新进程并接收其输出。

uses Process;

var
  Proc: TProcess;
begin
  Proc := TProcess.Create(nil);
  try
    Proc.CommandLine := 'cmd.exe /c your.bat';
    Proc.StandardOutput.OnData := procData;
    Proc.Execute;
  except
    on E: Exception do
      ShowMessage('Failed to run bat file: ' + E.Message);
  end;
end;

procedure procData(Sender: TObject; const Data: string);
begin
  // 处理数据...
  OutputMemo.Lines.Add(Data);
end;