Delphi通过管道执行外部命令行程序（cmd）并获取返回结果

//================================================================

//K8执行DOS并返回结果

function RunDosCommand(Command: string): string;

var

hReadPipe: THandle;

hWritePipe: THandle;

SI: TStartUpInfo;

PI: TProcessInformation;

SA: TSecurityAttributes;

//     SD   :   TSecurityDescriptor;

BytesRead: DWORD;

Dest: array[0..1023] of char;

CmdLine: array[0..512] of char;

TmpList: TStringList;

Avail, ExitCode, wrResult: DWORD;

osVer: TOSVERSIONINFO;

tmpstr: AnsiString;

begin

osVer.dwOSVersionInfoSize := Sizeof(TOSVERSIONINFO);

GetVersionEX(osVer);

if osVer.dwPlatformId = VER_PLATFORM_WIN32_NT then

begin

//         InitializeSecurityDescriptor(@SD,   SECURITY_DESCRIPTOR_REVISION);

//         SetSecurityDescriptorDacl(@SD,   True,   nil,   False);

SA.nLength := SizeOf(SA);

SA.lpSecurityDescriptor := nil; //@SD;

SA.bInheritHandle := True;

CreatePipe(hReadPipe, hWritePipe, @SA, 0);

end

else

CreatePipe(hReadPipe, hWritePipe, nil, 1024);

try

FillChar(SI, SizeOf(SI), 0);

SI.cb := SizeOf(TStartUpInfo);

SI.wShowWindow := SW_HIDE;

SI.dwFlags := STARTF_USESHOWWINDOW;

SI.dwFlags := SI.dwFlags or STARTF_USESTDHANDLES;

SI.hStdOutput := hWritePipe;

SI.hStdError := hWritePipe;

StrPCopy(CmdLine, Command);

if CreateProcess(nil, CmdLine, nil, nil, True, NORMAL_PRIORITY_CLASS, nil,nil, SI, PI) then

begin

ExitCode := 0;

while ExitCode = 0 do

begin

wrResult := WaitForSingleObject(PI.hProcess, 500);

//                 if   PeekNamedPipe(hReadPipe,   nil,   0,   nil,   @Avail,   nil)   then

if PeekNamedPipe(hReadPipe, @Dest[0], 1024, @Avail, nil, nil) then

begin

if Avail > 0 then

begin

TmpList := TStringList.Create;

try

FillChar(Dest, SizeOf(Dest), 0);

ReadFile(hReadPipe, Dest[0], Avail, BytesRead, nil);

TmpStr := Copy(Dest, 0, BytesRead - 1);

TmpList.Text := TmpStr;

Result := tmpstr;

finally

TmpList.Free;

end;

end;

end;

if wrResult <> WAIT_TIMEOUT then ExitCode := 1;

end;

GetExitCodeProcess(PI.hProcess, ExitCode);

CloseHandle(PI.hProcess);

CloseHandle(PI.hThread);

end;

finally

CloseHandle(hReadPipe);

CloseHandle(hWritePipe);

end;

end;

//该代码片段来自于: http://www.sharejs.com/codes/delphi/8999