|
@@ -545,9 +545,9 @@ End;
|
|
|
|
|
|
|
|
procedure RedirDisableAll;
|
|
procedure RedirDisableAll;
|
|
|
begin
|
|
begin
|
|
|
- If RedirChangedIn and InRedirDisabled then
|
|
|
|
|
|
|
+ If RedirChangedIn and not InRedirDisabled then
|
|
|
DisableRedirIn;
|
|
DisableRedirIn;
|
|
|
- If RedirChangedOut and OutRedirDisabled then
|
|
|
|
|
|
|
+ If RedirChangedOut and not OutRedirDisabled then
|
|
|
DisableRedirOut;
|
|
DisableRedirOut;
|
|
|
If RedirChangedError and not ErrorRedirDisabled then
|
|
If RedirChangedError and not ErrorRedirDisabled then
|
|
|
DisableRedirError;
|
|
DisableRedirError;
|
|
@@ -685,6 +685,7 @@ end;
|
|
|
StoreInherit:=ExecInheritsHandles;
|
|
StoreInherit:=ExecInheritsHandles;
|
|
|
ExecInheritsHandles:=true;
|
|
ExecInheritsHandles:=true;
|
|
|
{$endif win32}
|
|
{$endif win32}
|
|
|
|
|
+ DosError:=0;
|
|
|
Dos.Exec (ProgName, ComLine);
|
|
Dos.Exec (ProgName, ComLine);
|
|
|
{$ifdef win32}
|
|
{$ifdef win32}
|
|
|
ExecInheritsHandles:=StoreInherit;
|
|
ExecInheritsHandles:=StoreInherit;
|
|
@@ -717,7 +718,10 @@ Begin
|
|
|
End.
|
|
End.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.24 1999-11-10 17:10:59 pierre
|
|
|
|
|
|
|
+ Revision 1.25 2000-05-17 10:19:53 pierre
|
|
|
|
|
+ * Reset DosError to zero !
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.24 1999/11/10 17:10:59 pierre
|
|
|
+ DosExecute to interface
|
|
+ DosExecute to interface
|
|
|
|
|
|
|
|
Revision 1.23 1999/09/22 13:03:27 pierre
|
|
Revision 1.23 1999/09/22 13:03:27 pierre
|
|
@@ -815,4 +819,4 @@ End.
|
|
|
* unit name of FPSwitches -> FPSwitch which is easier to use
|
|
* unit name of FPSwitches -> FPSwitch which is easier to use
|
|
|
* some fixes for tp7 compiling
|
|
* some fixes for tp7 compiling
|
|
|
|
|
|
|
|
-}
|
|
|
|
|
|
|
+}
|
pierre