CreatePipe/CreateProcess读取句柄无效问题求助

从你给出的截断代码来看，问题大概率出在管道句柄继承、标准句柄设置的正确性，或者后续读取/写入逻辑的疏漏上。我先帮你补全可运行的测试代码，再逐一排查这些常见坑点：

1. 补全可运行的测试代码示例 #

假设你是要把子进程的标准输出重定向到管道，让父进程读取（这是管道IPC的典型场景），以下是完整的测试代码：

procedure TestPipe;
const
  SecConst: TSecurityAttributes = (nLength: SizeOf(TSecurityAttributes); bInheritHandle: true; lpSecurityDescriptor: nil);
var
  Security: TSecurityAttributes;
  PipeRead, PipeWrite: THandle;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  s: array[0..4095] of Char;
  BytesRead: DWORD;
begin
  Security := SecConst;
  // 创建匿名管道，写句柄将被子进程继承
  Win32Check(CreatePipe(PipeRead, PipeWrite, @Security, 0));
  
  // 取消父进程的写句柄继承属性，避免句柄泄漏
  Win32Check(SetHandleInformation(PipeWrite, HANDLE_FLAG_INHERIT, 0));

  // 初始化子进程启动信息，重定向其标准输出到管道写句柄
  ZeroMemory(@StartupInfo, SizeOf(StartupInfo));
  StartupInfo.cb := SizeOf(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_HIDE; // 隐藏子进程窗口
  StartupInfo.hStdOutput := PipeWrite;
  StartupInfo.hStdError := PipeWrite; // 可选：将错误输出也重定向到管道

  // 启动子进程，示例为执行cmd的dir命令
  Win32Check(CreateProcess(nil, 'cmd.exe /c dir', nil, nil, True, 0, nil, nil, StartupInfo, ProcessInfo));

  // 父进程不再需要写句柄，必须关闭否则管道不会触发EOF
  CloseHandle(PipeWrite);

  // 循环读取管道内容
  while ReadFile(PipeRead, s, SizeOf(s)-1, BytesRead, nil) do
  begin
    if BytesRead = 0 then Break;
    s[BytesRead] := #0; // 添加字符串终止符
    Writeln('读取到内容: ', s);
  end;

  // 清理所有资源
  CloseHandle(PipeRead);
  CloseHandle(ProcessInfo.hProcess);
  CloseHandle(ProcessInfo.hThread);
end;

2. 常见错误排查点 #

• 句柄继承配置错误：
  • 创建管道时bInheritHandle必须设为True，这样子进程才能继承写句柄；但父进程一定要用SetHandleInformation取消自己写句柄的继承属性，防止句柄泄漏。
• 未及时关闭多余句柄：
  • 子进程启动后，父进程必须关闭管道写句柄，否则ReadFile会一直阻塞——因为系统认为管道还有一个写端处于打开状态，不会返回EOF。
• SetStdHandle的误用：
  • 如果你原本想通过SetStdHandle重定向当前进程的标准IO，要注意这个函数只影响后续用GetStdHandle获取的句柄，且需要配合缓冲区刷新；更推荐的子进程重定向方式是通过TStartupInfo直接指定标准句柄，就像上面代码里做的那样。
• 读取逻辑疏漏：
  • 读取管道时要检查ReadFile的返回值，同时判断BytesRead是否为0（表示管道已关闭）；用字符数组读取时，必须手动添加字符串终止符，避免乱码。
• 安全描述符问题：
  • 你的代码中SecConst的lpSecurityDescriptor默认是nil，普通本地IPC场景下没问题，但如果是跨用户会话或高权限进程通信，可能需要设置允许继承的安全描述符。

3. 实用调试技巧 #

• 用GetLastError()获取具体错误码：比如ERROR_BROKEN_PIPE表示管道另一端已关闭，ERROR_ACCESS_DENIED表示句柄权限不足，这些错误码能帮你快速定位问题。
• 用Process Explorer查看进程句柄列表：可以确认管道句柄是否被正确继承、是否存在未关闭的句柄泄漏。

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