CreateProcess 执行CMD命令，并重定向输出

1、

参考网址：http://www.cnblogs.com/cnarg/archive/2011/02/20/1959292.html

 function TfrmMain.ExecDosCmd :boolean;
 var sa :SECURITY_ATTRIBUTES;
     si :STARTUPINFO;
     pi :PROCESS_INFORMATION;

     pcDosCmd :PChar;
     hRead,hWrite :THandle;
     cCommand :array[..] of char;  //长达1k的命令行，够用了吧
     pcCommand1 :PChar;
     cBuffer :array[..] of char; //用4k的空间来存储输出的内容，只要不是显示文件内容，一般情况下是够用了。
     bytesRead :DWORD;
     dwExitCode :DWORD;

     buf01 :array[..] of char;
     iLen01 :integer;
 begin
   Result := false;
   //pcDosCmd := 'dir c:\';      //可以换成你的命令
   pcDosCmd := 'ping 192.168.2.1';      //可以换成你的命令

   sa.nLength := sizeof(SECURITY_ATTRIBUTES);
   sa.lpSecurityDescriptor := nil;
   sa.bInheritHandle := true;
   if (not CreatePipe(hRead, hWrite, @sa, )) then
     Exit;

   pcCommand1 := 'Cmd.exe /C ';
   ZeroMemory(@cCommand[], length(cCommand));
   CopyMemory(@cCommand[], pcCommand1, strlen(pcCommand1));
   CopyMemory(@cCommand[strlen(pcCommand1)], pcDosCmd, strlen(pcDosCmd));
   cCommand[strlen(pcCommand1) + strlen(pcDosCmd)] := chr();

   si.cb := sizeof(STARTUPINFO);
   GetStartupInfo(si);
   si.hStdError := hWrite;            //把创建进程的标准错误输出重定向到管道输入
   si.hStdOutput := hWrite;           //把创建进程的标准输出重定向到管道输入
   si.wShowWindow := SW_HIDE;
   si.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
   //关键步骤，CreateProcess函数参数意义请查阅MSDN
   if (not CreateProcess(nil, cCommand, nil, nil, true, , nil, nil, si, pi)) then
   begin
     CloseHandle(hWrite);
     CloseHandle(hRead);
     Exit;
   end;
   CloseHandle(hWrite);

   iLen01 := ;
   while (true) do
   begin
     //ZeroMemory(@cBuffer[0], length(cBuffer));
     if (not ReadFile(hRead, cBuffer[], , bytesRead, nil)) then
       break;
     //cBuffer[bytesRead] := chr(0);
     //cBuffer中就是执行的结果，可以保存到文本，也可以直接输出
     //Memo1.Lines.Add(cBuffer);   //这里是弹出对话框显示
     CopyMemory(@buf01[iLen01], @cBuffer[], bytesRead);
     iLen01 := iLen01 + bytesRead;
   end;
   buf01[iLen01] := chr();
   Memo1.Lines.Add(buf01);

   CloseHandle(hRead);
   Result := true;

   dwExitCode := ;
   WaitForSingleObject(pi.hProcess, INFINITE);
   Windows.GetExitCodeProcess(pi.hProcess, dwExitCode);
   Memo1.Lines.Add('子进程 退出码 : '+inttostr(dwExitCode));
 end;

PS：CreateProcess()输出到文件 里面用到的 “HANDLE hTemp = GetStdHandle(STD_OUTPUT_HANDLE);”“SetStdHandle(STD_OUTPUT_HANDLE, hFile);// 设置标准输出” ，应该是将本进程默认的标准输入输出都改变了，而非是“将子进程的标准输出重定向到刚刚创建的文件句柄”。

ZC：由于 只执行“SetStdHandle(STD_OUTPUT_HANDLE, hFile);” 的话，本进程的标准输出流是不会改变的，又∵作者在SetStdHandle之后才执行GetStartupInfo，因此子进程的 标准输出被重定位了，而父进程的标准输出没有变化。

A