Having the checkpipe option to false, it was breaking the routine

Author: lmbelo

src/Tools/PyTools.ExecCmd.Win.pas

@@ -181,6 +181,7 @@ procedure TExecCmd.Redirect(out AReader: TReader; out AWriter: TWriter);
 
     while GetIsAlive() and Result.IsEmpty() do begin
       Result := Result + PeekMessage();
+      Sleep(100);
     end;
 
     if not Result.IsEmpty() then
@@ -290,15 +291,15 @@ function TExecCmd.PeekMessage(const ACheckPipe: boolean): string;
 begin
   Result := String.Empty;
 
-  if ACheckPipe and not PeekNamedPipe(FStdOutPipeRead, nil, 0, nil, @LBytesRead, nil) then
-    Exit;
+  if ACheckPipe then
+    if not PeekNamedPipe(FStdOutPipeRead, nil, 0, nil, @LBytesRead, nil)
+      or (LBytesRead = 0) then
+        Exit;
 
-  if (LBytesRead > 0) then
-    if ReadFile(FStdOutPipeRead, LBuffer, BUFFSIZE, LBytesRead, nil) then
-      if (LBytesRead > 0) then begin
-        LBuffer[LBytesRead] := #0;
-        Result := Result + String(LBuffer);
-      end;
+  if ReadFile(FStdOutPipeRead, LBuffer, BUFFSIZE, LBytesRead, nil) then
+    if (LBytesRead > 0) then begin
+      SetString(Result, LBuffer, LBytesRead);
+    end;
 end;
 
 end.