Browse Source

ExecInheritsHandles reset to false by default

pierre 26 years ago
parent
commit
97d495949c
1 changed files with 8 additions and 4 deletions
  1. 8 4
      rtl/win32/dos.pp

+ 8 - 4
rtl/win32/dos.pp

@@ -163,8 +163,9 @@ Const
   { allow EXEC to inherited handles from calling process,
   { allow EXEC to inherited handles from calling process,
     needed for FPREDIR in ide/text
     needed for FPREDIR in ide/text
     now set to true by default because
     now set to true by default because
-    other OS also pass open handles to childs PM }
-  ExecInheritedHandles : BOOL = true;
+    other OS also pass open handles to childs
+    finally reset to false after Florian's response PM }
+  ExecInheritsHandles : BOOL = false;
 
 
 implementation
 implementation
 uses strings;
 uses strings;
@@ -372,7 +373,7 @@ begin
   Move(ComLine[1],AppParam[2],length(Comline));
   Move(ComLine[1],AppParam[2],length(Comline));
   AppParam[Length(ComLine)+2]:=#0;
   AppParam[Length(ComLine)+2]:=#0;
   if not CreateProcess(PChar(@AppPath), PChar(@AppParam),
   if not CreateProcess(PChar(@AppPath), PChar(@AppParam),
-           Nil, Nil, ExecInheritedHandles,$20, Nil, Nil, SI, PI) then
+           Nil, Nil, ExecInheritsHandles,$20, Nil, Nil, SI, PI) then
    begin
    begin
      DosError:=Last2DosError(GetLastError);
      DosError:=Last2DosError(GetLastError);
      exit;
      exit;
@@ -894,7 +895,10 @@ End;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.22  1999-09-21 13:24:32  pierre
+  Revision 1.23  1999-09-22 12:34:05  pierre
+   ExecInheritsHandles  reset to false by default
+
+  Revision 1.22  1999/09/21 13:24:32  pierre
    * typo error
    * typo error
 
 
   Revision 1.21  1999/09/21 12:37:09  pierre
   Revision 1.21  1999/09/21 12:37:09  pierre