paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 15:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r45228 into '.':

Browse Source 
U    packages/fcl-process/src/process.pp
U    packages/fcl-process/src/win/process.inc
--- Recording mergeinfo for merge of r45228 into '.':
 U   .

# revisions: 45228

git-svn-id: branches/fixes_3_2@45229 -
This commit is contained in:
marco 2020-05-02 20:19:19 +00:00
parent 2e2f836a26
commit cb725ea335
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;