ShellExecuteEx在ISAPI中正常运行但CGI中失败的问题求助

我来帮你排查这个CGI里ShellExecuteEx调用失败的坑——毕竟ISAPI和CGI的运行上下文差异确实容易踩雷！先给你理清楚核心差异，再一步步给解决方案：

核心差异：ISAPI vs CGI的运行环境 #

ISAPI是作为IIS进程的一部分运行的，继承了IIS应用池的权限和上下文；而CGI是作为独立进程启动的，默认使用更受限的身份（比如IUSR、应用池专用账户），且运行在无桌面的会话0中，这两个差异是导致调用失败的主要原因。

具体解决方案 #

1. 强制使用绝对路径，避免工作目录坑 #

CGI的默认工作目录大概率不是你的程序所在目录（可能是IIS的system32目录），所以所有路径必须用绝对路径：

• HTMLDoc.exe的完整路径（比如C:\Tools\HTMLDoc\htmldoc.exe）
• 源HTML文件的完整路径
• 输出PDF文件的完整路径
  如果路径包含空格，一定要用双引号括起来，避免参数解析错误。

2. 检查并修复权限问题 #

CGI运行的账户（比如IUSR、IIS AppPool\你的应用池名称）需要拥有以下权限：

• HTMLDoc.exe所在目录的执行权限
• 源HTML文件所在目录的读权限
• 输出PDF目录的写权限
  可以临时放宽权限测试，确认是权限问题后再逐步收紧。

3. 调整ShellExecuteEx的参数适配无桌面环境 #

CGI没有交互桌面，必须给ShellExecuteEx设置合适的flags，避免依赖Shell的交互特性：

var
  sei: TShellExecuteInfo;
  ErrCode: DWORD;
begin
  ZeroMemory(@sei, SizeOf(sei));
  sei.cbSize := SizeOf(sei);
  // 关键：关闭控制台、不依赖桌面会话
  sei.fMask := SEE_MASK_NOCLOSE_PROCESS or SEE_MASK_NO_CONSOLE;
  sei.lpVerb := 'open';
  sei.lpFile := PChar('C:\Full\Path\To\htmldoc.exe');
  // 参数用绝对路径，带引号处理空格
  sei.lpParameters := PChar('-f "' + outFilename + '" "' + filename + '"');
  sei.nShow := SW_HIDE; // 隐藏窗口，CGI无桌面无需显示

  if not ShellExecuteEx(@sei) then
  begin
    ErrCode := GetLastError();
    // 一定要把错误码写入日志！CGI不会弹出提示
    // 比如：WriteLog('ShellExecuteEx failed: ' + SysErrorMessage(ErrCode));
  end
  else
  begin
    // 等待进程执行完毕，确保PDF生成完成
    WaitForSingleObject(sei.hProcess, INFINITE);
    CloseHandle(sei.hProcess);
  end;
end;

4. 替换为CreateProcess更可靠 #

ShellExecuteEx依赖系统Shell服务，在无桌面环境下可能不稳定，换成CreateProcess直接创建进程更靠谱：

var
  si: TStartupInfo;
  pi: TProcessInformation;
  CmdLine: string;
  ErrCode: DWORD;
begin
  ZeroMemory(@si, SizeOf(si));
  si.cb := SizeOf(si);
  si.dwFlags := STARTF_USESHOWWINDOW;
  si.wShowWindow := SW_HIDE;
  
  // 拼接完整命令行，带绝对路径和引号
  CmdLine := 'C:\Full\Path\To\htmldoc.exe -f "' + outFilename + '" "' + filename + '"';
  
  if not CreateProcess(nil, PChar(CmdLine), nil, nil, False, CREATE_NO_WINDOW, nil, 
    PChar('C:\Full\Path\To\HTMLDoc\'), si, pi) then
  begin
    ErrCode := GetLastError();
    // 写入错误日志排查
  end
  else
  begin
    // 等待进程结束，保证PDF生成完成
    WaitForSingleObject(pi.hProcess, INFINITE);
    CloseHandle(pi.hProcess);
    CloseHandle(pi.hThread);
  end;
end;

5. 关键：记录错误日志 #

CGI的错误不会直接显示在界面上，一定要把GetLastError()返回的错误码写入日志文件，比如ERROR_FILE_NOT_FOUND是找不到程序，ERROR_ACCESS_DENIED是权限不足，根据错误码能快速定位问题。

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