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[0..1023] of char;  //長達1k的命令行，夠用了吧
    pcCommand1 :PChar;
    cBuffer :array[0..4095] of char; //用4k的空間來存儲輸出的內容，只要不是顯示文件內容，一般情況下是夠用了。
    bytesRead :DWORD;
    dwExitCode :DWORD;

    buf01 :array[0..4095] 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, 0)) then
    Exit;

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

  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, 0, nil, nil, si, pi)) then
  begin
    CloseHandle(hWrite);
    CloseHandle(hRead);
    Exit;
  end;
  CloseHandle(hWrite);

  iLen01 := 0;
  while (true) do
  begin
    //ZeroMemory(@cBuffer[0], length(cBuffer));
    if (not ReadFile(hRead, cBuffer[0], 4095, bytesRead, nil)) then
      break;
    //cBuffer[bytesRead] := chr(0);
    //cBuffer中就是執行的結果，可以保存到文本，也可以直接輸出
    //Memo1.Lines.Add(cBuffer);   //這里是彈出對話框顯示
    CopyMemory(@buf01[iLen01], @cBuffer[0], bytesRead);
    iLen01 := iLen01 + bytesRead;
  end;
  buf01[iLen01] := chr(0);
  Memo1.Lines.Add(buf01);

  CloseHandle(hRead); 
  Result := true;

  dwExitCode := 0;
  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