BufFlush before OS shell
This commit is contained in:
parent
6d2f253a5d
commit
5a3ae15b2a
|
@ -170,6 +170,8 @@ End;
|
||||||
|
|
||||||
Function ShellDOS (ExecPath: String; Command: String) : LongInt;
|
Function ShellDOS (ExecPath: String; Command: String) : LongInt;
|
||||||
Begin
|
Begin
|
||||||
|
Session.io.BufFlush;
|
||||||
|
|
||||||
{$IFDEF WINDOWS}
|
{$IFDEF WINDOWS}
|
||||||
ExecInheritsHandles := True;
|
ExecInheritsHandles := True;
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
Loading…
Reference in New Issue