BufFlush before OS shell

This commit is contained in:
mysticbbs 2012-08-06 01:53:52 -04:00
parent 6d2f253a5d
commit 5a3ae15b2a
1 changed files with 2 additions and 0 deletions

View File

@ -170,6 +170,8 @@ End;
Function ShellDOS (ExecPath: String; Command: String) : LongInt;
Begin
Session.io.BufFlush;
{$IFDEF WINDOWS}
ExecInheritsHandles := True;
{$ENDIF}