winapi - 当它要求输入时终止管道程序

Question

当使用管道从生成的进程中读取时，是否可以在请求输入时终止所述程序？

如果它没有终止，则在管道关闭之前通常的 ReadFile 循环将永远阻塞：

tsi.cb := SizeOf(TStartupInfo);
tsi.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
tsi.hStdInput := hInputRead;
tsi.hStdOutput := hOutputWrite;
tsi.hStdError := hErrorWrite;

if not CreateProcess(nil, PAnsiChar(Cmd), @sa, @sa, true, 0, nil, PAnsiChar(WorkDir), tsi, tpi) then
    exit;

// Close handles we don't need. We are only interested in its output
CloseHandle(hOutputWrite);
CloseHandle(hInputRead);
CloseHandle(hErrorWrite);

repeat
    // ReadFile will never return while our programs waits for input
    if not ReadFile(OutputRead, Buf, SizeOf(Buf), nRead, nil) or (nRead = 0) then
    begin
        if GetLastError = ERROR_BROKEN_PIPE then
            Break
        else
            ErrFunc('Pipe read error, could not execute file');
    end;

    // do something with buf...

until False;

自行终止非常容易（只需使用 TerminateProcess），但只有在为时已晚（即挂起）时才知道何时调用 TerminateProcess。

Answer 1

首先，您没有使用 Win32 意义上的管道，而是使用重定向的控制台输出。
但是，话虽如此，您可以等待文件句柄并在等待超时时中止。