从命令行启动Delphi编译器(dcc32.exe)时如何检测编译错误

问题背景 #

我们的Delphi项目可直接通过IDE构建，但希望通过命令行实现多项目构建流程自动化。当前使用的代码如下：

ShellExecute(0,
    'open',
    PChar('[PATH-TO-DELPHI]\Bin\DCC32.EXE'),
    PChar('-B [PATH-TO-PROJECT]\MyProject.dpr'),
    PChar('[PATH-TO-PROJECT]'),
    SW_HIDE);

无论编译是否存在错误，ShellExecute始终返回值"42"。虽然可通过IDE排查错误，但需要实现从命令行检测编译错误，或通过文件/日志验证构建是否成功。

解决方案 #

1. 改用CreateProcess获取编译退出码 #

ShellExecute仅负责启动程序，无法等待编译完成或获取DCC32的实际退出状态。改用CreateProcess可以实现等待编译结束，并通过退出码判断结果：

• DCC32编译成功时退出码为0
• 存在编译错误时退出码不为0（通常为1）

示例代码：

var
  SI: TStartupInfo;
  PI: TProcessInformation;
  ExitCode: DWORD;
begin
  ZeroMemory(@SI, SizeOf(SI));
  SI.cb := SizeOf(SI);
  SI.dwFlags := STARTF_USESHOWWINDOW;
  SI.wShowWindow := SW_HIDE;

  if CreateProcess(nil,
    PChar('"[PATH-TO-DELPHI]\Bin\DCC32.EXE" -B "[PATH-TO-PROJECT]\MyProject.dpr"'),
    nil, nil, False, 0, nil, PChar('[PATH-TO-PROJECT]'), SI, PI) then
  begin
    WaitForSingleObject(PI.hProcess, INFINITE);
    GetExitCodeProcess(PI.hProcess, ExitCode);
    CloseHandle(PI.hProcess);
    CloseHandle(PI.hThread);

    if ExitCode = 0 then
      // 编译成功逻辑
    else
      // 编译失败逻辑，可根据ExitCode做对应处理
  end;
end;

2. 生成编译日志文件验证 #

在DCC32的命令行参数中添加重定向，将输出写入日志文件，通过检查日志内容判断是否存在错误：

• 修改命令行参数为：-B "[PATH-TO-PROJECT]\MyProject.dpr" > "[PATH-TO-LOG]\BuildLog.txt" 2>&1"
• 编译完成后读取日志文件，查找是否包含ERROR关键字（DCC32的错误提示为大写）

示例代码片段：

var
  LogFile: TStringList;
  I: Integer;
  HasError: Boolean;
begin
  HasError := False;
  LogFile := TStringList.Create;
  try
    LogFile.LoadFromFile('[PATH-TO-LOG]\BuildLog.txt');
    for I := 0 to LogFile.Count - 1 do
    begin
      if Pos('ERROR', UpperCase(LogFile[I])) > 0 then
      begin
        HasError := True;
        Break;
      end;
    end;

    if HasError then
      // 存在编译错误
    else
      // 编译成功
  finally
    LogFile.Free;
  end;
end;

3. 检查目标输出文件状态 #

编译成功后会生成对应的.exe或.dll文件，可通过以下方式验证：

• 编译前记录目标文件的修改时间或文件大小
• 编译完成后对比记录值，若有更新则说明编译成功
• 注：使用-B参数会强制重新构建，即使代码无变更，目标文件修改时间也会更新

内容的提问来源于stack exchange，提问作者AlainD