管道重定向子进程输入时的错误

2012-03-23 11:04:04 109 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

用C语言实现简易的shell程序，支持多重管道及重定向 1 简介 2 功能 3 效果展示 3.1 启动myshell 3.2 执行cd命令 3.3 执行外部命令 3.4 重定向 3.5 管道 3.6 exit命令 4 关键代码 4.1 获取用户名、主机名及当前工作路径 4.2 以空格分割命令 4.3 执行exit命令 4.4 执行cd命令 4.5 判断命令是否存在 4.6 执行外部命令 ——callCommand()函数 4.7 可处... 阅读详情

首先我把代码贴出来吧.



sa.nLength:= SizeOf(sa);

  sa.lpSecurityDescriptor:= nil;

  sa.bInheritHandle:= True;

  if not CreatePipe(hOutRead, hOutWrite, @sa, 0) then

  begin

    ShowMessage('CreatePipe Error!!!');

    Exit;

  end;

  ZeroMemory(@Buf[0],1024);

  ZeroMemory(@si, SizeOf(si));

  si.cb:= SizeOf(si);

  si.dwFlags:= STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;

  si.wShowWindow:= SW_HIDE;

  si.hStdOutput:= hOutWrite;

  si.hStdError:= hOutWrite;

  if not CreateProcess(nil,'E:\MinGW\Bin\gcc.exe c:\2_3.c -o c:\2_3.exe -O2 -Wall -lm -DONLINE_JUDGE',nil,nil,True,CREATE_NEW_CONSOLE,nil,nil,si,pi) then

  begin

    ShowMessage('CreateProcess Error!!!');

    Exit;

  end;



  case WaitForSingleObject(pi.hProcess, 2000) of

    WAIT_OBJECT_0:

      begin

        CloseHandle(hOutWrite) ;

        if ReadFile(hOutRead,Buf, 1024, dwCount, nil) then

        begin

          ShowMessage('GetReadBack: ' + StrPas(PChar(@buf[0])));

        end

        else

        begin

          dwCount:= GetLastError;

          ShowMessage(IntToStr(dwCount));

        end;          

      end;

    WAIT_TIMEOUT:

      TerminateProcess(pi.hProcess, 100);

  end;

  CloseHandle(pi.hProcess);

  CloseHandle(pi.hThread);