Fórum Delphi e SSH #619007

procedure RunDosCommand(DosApp:String; Result : TStrings);
const
  ReadBuffer = 2400;
var
  Security : TSecurityAttributes;
  ReadPipe,WritePipe : THandle;
  start : TStartUpInfo;
  ProcessInfo : TProcessInformation;
  Buffer : Pchar;
  BytesRead : DWord;
  Apprunning : DWord;
begin
  with Security do
    begin
      nlength := SizeOf(TSecurityAttributes) ;
      binherithandle := true;
      lpsecuritydescriptor := nil;
    end;
  if Createpipe (ReadPipe, WritePipe,@Security, 0)
    then
      begin
        Buffer := AllocMem(ReadBuffer + 1) ;
        FillChar(Start,Sizeof(Start),#0) ;
        start.cb := SizeOf(start) ;
        start.hStdOutput := WritePipe;
        start.hStdInput := ReadPipe;
        start.dwFlags := STARTF_USESTDHANDLES +STARTF_USESHOWWINDOW;
        start.wShowWindow := SW_HIDE;
        if CreateProcess(nil,PChar(DosApp),@Security,@Security,true,
                         NORMAL_PRIORITY_CLASS,nil,nil,start,ProcessInfo)
          then
            repeat
              Apprunning := WaitForSingleObject(ProcessInfo.hProcess,100) ;
              Application.ProcessMessages;
              BytesRead := 0;
              ReadFile(ReadPipe,Buffer[0],ReadBuffer,BytesRead,nil) ;
              Buffer[BytesRead]:= #0;
              OemToAnsi(Buffer,Buffer) ;
              Result.Text := Result.text + String(Buffer) ;
            until (Apprunning <> WAIT_TIMEOUT) ;
        FreeMem(Buffer) ;
        CloseHandle(ProcessInfo.hProcess) ;
        CloseHandle(ProcessInfo.hThread) ;
        CloseHandle(ReadPipe) ;
        CloseHandle(WritePipe) ;
      end;
end;