paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

ExecInheritsHandles reset to false by default

Browse Source
This commit is contained in:
pierre 1999-09-22 12:34:05 +00:00
parent f34afdcf46
commit 97d495949c
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/win32/dos.pp
View File

@ -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 } other OS also pass open handles to childs
ExecInheritedHandles : BOOL = true; 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