mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-28 09:10:25 +02:00
* proper support for ExecInheritsHandles in Flags
git-svn-id: trunk@19368 -
This commit is contained in:
parent
fca1ea8757
commit
49a7b48fe0
@ -678,7 +678,8 @@ begin
|
|||||||
SD.PgmName := PChar (CommandLine);
|
SD.PgmName := PChar (CommandLine);
|
||||||
if ComLine <> '' then
|
if ComLine <> '' then
|
||||||
SD.PgmInputs := PChar (ComLine);
|
SD.PgmInputs := PChar (ComLine);
|
||||||
SD.InheritOpt := ssf_InhertOpt_Parent;
|
if ExecInheritsHandles in Flags then
|
||||||
|
SD.InheritOpt := ssf_InhertOpt_Parent;
|
||||||
Str (GetProcessID, SPID);
|
Str (GetProcessID, SPID);
|
||||||
Str (ThreadID, STID);
|
Str (ThreadID, STID);
|
||||||
QName := '\QUEUES\FPC_ExecuteProcess_p' + SPID + 't' + STID + '.QUE'#0;
|
QName := '\QUEUES\FPC_ExecuteProcess_p' + SPID + 't' + STID + '.QUE'#0;
|
||||||
|
Loading…
Reference in New Issue
Block a user