获取cmd返回的结果

procedure RunMSDOS(Str: string);
var
  Command: string;
  Output: string;
  Buffer: array[0..255] of Char;
  Security: TSecurityAttributes;
  ReadPipe, WritePipe: THandle;
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  BytesRead: DWORD;
begin
  Command := Str;

  FillChar(Security, SizeOf(TSecurityAttributes), 0);
  Security.nLength := SizeOf(TSecurityAttributes);
  Security.bInheritHandle := True;
  Security.lpSecurityDescriptor := nil;


  if CreatePipe(ReadPipe, WritePipe, @Security, 0) then
  begin
    try
      ZeroMemory(@StartupInfo, SizeOf(TStartupInfo));
      StartupInfo.cb := SizeOf(TStartupInfo);
      StartupInfo.hStdOutput := WritePipe;
      StartupInfo.hStdError := WritePipe;
      StartupInfo.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
      StartupInfo.wShowWindow := SW_HIDE;

      if CreateProcess(nil, PChar('cmd.exe /C ' + Command), nil, nil, True, CREATE_NO_WINDOW, nil, nil, StartupInfo, ProcessInfo) then
      begin
        try
          CloseHandle(WritePipe);
          Output := '';

          repeat
            if ReadFile(ReadPipe, Buffer, 255, BytesRead, nil) then
            begin
              Buffer[BytesRead] := #0;
              Output := Output + Buffer;
            end
            else
              Break;
          until BytesRead = 0;
            form1.mmo1.Lines.add(Output);
        finally
          CloseHandle(ProcessInfo.hProcess);
          CloseHandle(ProcessInfo.hThread);
        end;
      end;
    finally
      CloseHandle(ReadPipe);
    end;
  end;
end;

转载：https://blog.csdn.net/qq_45083002/article/details/131138572