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

+ ExecInheritedHandles boolean

Browse Source
This commit is contained in:
pierre 1999-09-21 11:34:40 +00:00
parent fc15ca8592
commit aeb8ec0d54
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/win32/dos.pp
View File

@ -159,6 +159,11 @@ Procedure GetIntVec(intno: byte; var vector: pointer);
Procedure SetIntVec(intno: byte; vector: pointer);
Procedure Keep(exitcode: word);
Const
{ allow EXEC to inherited handles from calling process,
needed for FPREDIR in ide/text PM }
ExecInheritsHandles : BOOL = false;
implementation
uses strings;
@ -354,6 +359,7 @@ var
l : Longint;
AppPath,
AppParam : array[0..255] of char;
InheritedHandles : BOOL;
begin
FillChar(SI, SizeOf(SI), 0);
SI.cb:=SizeOf(SI);
@ -364,7 +370,9 @@ begin
AppParam[1]:=' ';
Move(ComLine[1],AppParam[2],length(Comline));
AppParam[Length(ComLine)+2]:=#0;
if not CreateProcess(PChar(@AppPath), PChar(@AppParam), Nil, Nil, False,$20, Nil, Nil, SI, PI) then
InheritedHandles:=ExecInheritsHandles;
if not CreateProcess(PChar(@AppPath), PChar(@AppParam),
Nil, Nil, InheritedHandles,$20, Nil, Nil, SI, PI) then
begin
DosError:=Last2DosError(GetLastError);
exit;
@ -886,7 +894,10 @@ End;
end.
{
$Log$
Revision 1.19 1999-08-25 13:57:55 michael
Revision 1.20 1999-09-21 11:34:40 pierre
+ ExecInheritedHandles boolean
Revision 1.19 1999/08/25 13:57:55 michael
+ Patched FSearch from Frank McCormick
Revision 1.18 1999/08/12 09:24:14 michael