paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-10 19:21:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* add podetached. Follow up to mantis @32055 due to regression, see

Browse Source 
https://forum.lazarus.freepascal.org/index.php/topic,49631.0

git-svn-id: trunk@45228 -
This commit is contained in:
marco 2020-05-02 20:06:32 +00:00
parent 187cc46b32
commit 4a51d0600d
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-process/src/process.pp
View File

@ -26,7 +26,7 @@ Type
poUsePipes,poStderrToOutPut,
poNoConsole,poNewConsole,
poDefaultErrorMode,poNewProcessGroup,
poDebugProcess,poDebugOnlyThisProcess,
poDebugProcess,poDebugOnlyThisProcess,poDetached,
poPassInput,poRunIdle);
TShowWindowOptions = (swoNone,swoHIDE,swoMaximize,swoMinimize,swoRestore,swoShow,

3
packages/fcl-process/src/win/process.inc
View File

@ -82,6 +82,9 @@ begin
Result:=Result or DEBUG_ONLY_THIS_PROCESS;
if poDefaultErrorMode in Options Then
Result:=Result or CREATE_DEFAULT_ERROR_MODE;
if poDetached in Options Then
Result:=Result or DETACHED_PROCESS;
result:=result or PriorityConstants[FProcessPriority];
end;
end;