delphi执行bat文件并获取输出文本

在Delphi中执行批处理文件（.bat或.cmd）并获取其输出文本，通常需要使用`TExecuteProcess`或`TShellExecute`组件。以下是两个示例：

### 1. 使用`TExecuteProcess`

uses
  WinAPI.Files,
  System.SysUtils,
  System.IOUtils;

const
  BatFilePath = 'path_to_your_batch_file.bat';

var
  Process: TExecuteProcess;
  OutBuffer: TStringList;
begin
  // 创建并配置进程
  Process := TExecuteProcess.Create(nil);
  try
    Process.CommandLine := QuotedStrCat(BatFilePath); // 添加双引号保护文件路径

    // 设置进程属性，如标准输入输出
    Process.UseCurrentDirectory := True;
    Process.WorkingDirectory := GetCurrentDirectory(); // 或指定工作目录

    // 启动进程
    if Process.RunWait then
    begin
      // 获取输出
      SetLength(OutBuffer, Process.StandardOutputSize);
      FillChar(Pointer(OutBuffer)^, SizeOf(TString), #0);
      Process.StandardOutput.ReadBuffer(Pointer(OutBuffer)^, Process.StandardOutputSize);

      // 输出结果
      ShowMessage(OutBuffer.Text);
    end;
  finally
    Process.Free;
  end;
end;

### 2. 使用`TShellExecute`

uses
  ShellAPI;

const
  BatFilePath = 'path_to_your_batch_file.bat',
  StdInPipe = 'nul', // Windows 系统默认的无操作设备
  StdOutPipe = 'con:', // 可用于接收进程输出
  CmdShow = SW_HIDE; // 隐藏窗口

var
  ShellLink: TShellLink;
  hStdRead, hStdWrite: Integer;
begin
  // 初始化ShellLink对象
  ShellLink := TShellLink.Create;
  try
    // 指定执行的批处理文件
    ShellLink.Path := BatFilePath;
    
    // 创建管道句柄
    if not CreatePipe(@hStdWrite, @hStdRead, nil, 0) then
      raise Exception.CreateFmt('Failed to create pipe: %s', [GetLastErrorDescription]);

    // 连接到输出
    ShellLink.ShowWindow := CmdShow;
    ShellLink.Arguments := '/k | ' + IntToHex(hStdRead, 4); // 输出重定向到管道

    // 执行命令
    if ShellLink.Exec then
    begin
      // 关闭输入端
      CloseHandle(hStdRead);

      // 创建进程
      var ProcInfo: TProcessInformation;
      if OpenProcess(PROCESS_ALL_ACCESS, False, ShellLink.ProcessId) <> 0 then
      begin
        // 读取进程输出
        ReadFile(hStdWrite, @ProcInfo.HStdOutput, SizeOf(ProcInfo.HStdOutput), @ProcInfo.HStdOutputSize, nil);
        CloseHandle(hStdWrite);

        // 解析输出
        // 注意这里假设输出是一条条单独的行，实际可能需要解析
        SetLength(OutputLines, ProcInfo.HStdOutputSize div SizeOf(WideChar));
        for I := 0 to High(OutputLines) do
          OutputLines[I] := WideString(ExtractUnicodeBytes(PWideChar(@(ProcInfo.HStdOutput)^), SizeOf(WideChar)));
      end
    end;
  finally
    ShellLink.Free;
    CloseHandle(hStdWrite);
  end;
end;