CreateProcess执⾏CMD命令，并重定向输出 1、
1function TfrmMain.ExecDosCmd :boolean;
2var sa :SECURITY_ATTRIBUTES;
3    si :STARTUPINFO;
4    pi :PROCESS_INFORMATION;
5
6    pcDosCmd :PChar;
7    hRead,hWrite :THandle;
8    cCommand :array[0..1023] of char;  //长达1k的命令⾏，够⽤了吧
9    pcCommand1 :PChar;
10    cBuffer :array[0..4095] of char; //⽤4k的空间来存储输出的内容，只要不是显⽰⽂件内容，⼀般情况下是够⽤了。
11    bytesRead :DWORD;
12    dwExitCode :DWORD;
13
14    buf01 :array[0..4095] of char;
15    iLen01 :integer;
16begin
17  Result := false;
18//pcDosCmd := 'dir c:\';      //可以换成你的命令
19  pcDosCmd := 'ping 192.168.2.1';      //可以换成你的命令
20
21  sa.nLength := sizeof(SECURITY_ATTRIBUTES);
22  sa.lpSecurityDescriptor := nil;
23  sa.bInheritHandle := true;
24if (not CreatePipe(hRead, hWrite, @sa, 0)) then
createprocessa25    Exit;
26
27  pcCommand1 := ' /C ';
28  ZeroMemory(@cCommand[0], length(cCommand));
29  CopyMemory(@cCommand[0], pcCommand1, strlen(pcCommand1));
30  CopyMemory(@cCommand[strlen(pcCommand1)], pcDosCmd, strlen(pcDosCmd));
31  cCommand[strlen(pcCommand1) + strlen(pcDosCmd)] := chr(0);
32
33  si.cb := sizeof(STARTUPINFO);
34  GetStartupInfo(si);
35  si.hStdError := hWrite;            //把创建进程的标准错误输出重定向到管道输⼊
36  si.hStdOutput := hWrite;          //把创建进程的标准输出重定向到管道输⼊
37  si.wShowWindow := SW_HIDE;
38  si.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
39//关键步骤，CreateProcess函数参数意义请查阅MSDN
40if (not CreateProcess(nil, cCommand, nil, nil, true, 0, nil, nil, si, pi)) then
41begin
42    CloseHandle(hWrite);
43    CloseHandle(hRead);
44    Exit;
45end;
46  CloseHandle(hWrite);
47
48  iLen01 := 0;
49while (true) do
50begin
51//ZeroMemory(@cBuffer[0], length(cBuffer));
52if (not ReadFile(hRead, cBuffer[0], 4095, bytesRead, nil)) then
53break;
54//cBuffer[bytesRead] := chr(0);
55//cBuffer中就是执⾏的结果，可以保存到⽂本，也可以直接输出
56//Memo1.Lines.Add(cBuffer);  //这⾥是弹出对话框显⽰
57    CopyMemory(@buf01[iLen01], @cBuffer[0], bytesRead);
58    iLen01 := iLen01 + bytesRead;
59end;
60  buf01[iLen01] := chr(0);
61  Memo1.Lines.Add(buf01);
62
63  CloseHandle(hRead);
64  Result := true;
65
66  dwExitCode := 0;
67  WaitForSingleObject(pi.hProcess, INFINITE);
68  Windows.GetExitCodeProcess(pi.hProcess, dwExitCode);
69  Memo1.Lines.Add('⼦进程退出码 : '+inttostr(dwExitCode));
70end;
PS：⾥⾯⽤到的 “HANDLE hTemp = GetStdHandle(STD_OUTPUT_HANDLE);”“SetStdHandle(STD_OUTPUT_HANDLE, hFile);// 设置标准输出” ，应该是将本进程默认的标准输⼊输出都改变了，⽽⾮是“将⼦进程的标准输出重定向到刚刚创建的⽂件句柄”。
ZC：由于只执⾏“SetStdHandle(STD_OUTPUT_HANDLE, hFile);” 的话，本进程的标准输出流是不会改变的，⼜∵作者在SetStdHandle之后才执⾏GetStartupInfo，因此⼦进程的标准输出被重定位了，⽽⽗进程的标准输出没有变化。
A

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。