Захват консоли в строку

function runcmd(aString: WideString): string;
const
  CReadBuffer = 2400;
var
  saSecurity: TSecurityAttributes;
  hRead: THandle;
  hWrite: THandle;
  suiStartup: TStartupInfo;
  piProcess: TProcessInformation;
  pBuffer: array [0 .. CReadBuffer] of AnsiChar;
  dRead: DWord;
  dRunning: DWord;
begin
  Result := '';
 
  saSecurity.nLength := SizeOf(TSecurityAttributes);
  saSecurity.bInheritHandle := True;
  saSecurity.lpSecurityDescriptor := nil;
 
  if CreatePipe(hRead, hWrite, @saSecurity, 0) then
  begin
    try
      FillChar(suiStartup, SizeOf(TStartupInfo), #0);
      suiStartup.cb := SizeOf(TStartupInfo);
      suiStartup.hStdInput := hRead;
      suiStartup.hStdOutput := hWrite;
      suiStartup.hStdError := hWrite;
      suiStartup.dwFlags := STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
      suiStartup.wShowWindow := SW_HIDE;
 
      if CreateProcessW(PChar(astring), nil, @saSecurity, @saSecurity, True,
        CREATE_NEW_PROCESS_GROUP or NORMAL_PRIORITY_CLASS, nil, nil,
        suiStartup, piProcess) then
      begin
        CloseHandle(hWrite);
        try
          repeat
            dRunning := WaitForSingleObject(piProcess.hProcess, 100);
 
            repeat
              dRead := 0;
              if ReadFile(hRead, pBuffer[0], CReadBuffer, dRead, nil) then
              begin
                pBuffer[dRead] := #0;
                //OemToAnsi(pBuffer, pBuffer);
                Result := Result + String(pBuffer);
              end else
              result:='error '+floattostr(getlasterror());
            until (dRead < CReadBuffer);
          until (dRunning <> WAIT_TIMEOUT);
        finally
          CloseHandle(piProcess.hProcess);
          CloseHandle(piProcess.hThread);
        end;
      end else
        raise Exception.Create('Can not CreateProcess ' + QuotedStr(aString));
    finally
      CloseHandle(hRead);
    end;
  end else
    raise Exception.Create('Can not CreatePipe ' + QuotedStr(aString));
end;

{$APPTYPE CONSOLE}
uses
  Windows;
 
const
  CReadBuffer = 2400;
 
var
 saSecurity: TSecurityAttributes=(nLength:SizeOf(TSecurityAttributes);bInheritHandle:True);
 suiStartup: TStartupInfo=(cb: SizeOf(TStartupInfo);dwFlags:STARTF_USESTDHANDLES+STARTF_USESHOWWINDOW;wShowWindow:SW_HIDE);
 piProcess:  TProcessInformation;
 pBuffer:    array [0 .. CReadBuffer] of AnsiChar;
 dRead:      DWord;
 
begin
  if CreatePipe(suiStartup.hStdInput, suiStartup.hStdOutput, @saSecurity, CReadBuffer) then
  begin
    suiStartup.hStdError:=suiStartup.hStdOutput;
    if CreateProcessW('B:\1.exe',0,@saSecurity,0,True,0,0,0,suiStartup,piProcess) then
    begin
      dRead:=0;
      ReadFile(suiStartup.hStdInput, pBuffer, CReadBuffer, dRead, 0);
      pBuffer[dRead]:=#0;
      TerminateProcess(piProcess.hProcess,0);
    end;
    CloseHandle(suiStartup.hStdInput);
    CloseHandle(suiStartup.hStdOutput);
  end;
  writeln(pBuffer);
  readln;
end.