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

--- Merging r39681 into '.':

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

# revisions: 39681

git-svn-id: branches/fixes_3_2@39682 -
This commit is contained in:
marco 2018-08-29 10:15:46 +00:00
parent c5e1d72b71
commit 08f93784a5
3 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -36,11 +36,14 @@ Type
TStartupOption = (suoUseShowWindow,suoUseSize,suoUsePosition,
suoUseCountChars,suoUseFillAttribute);
TProcessPriority = (ppHigh,ppIdle,ppNormal,ppRealTime);
// only win32/64 and wince uses this. wince doesn't have the constants in the headers for the latter two.
// unix defines them (as nice levels?), but doesn't use them.
TProcessPriority = (ppHigh,ppIdle,ppNormal,ppRealTime{$ifndef wince},ppBelowNormal,ppAboveNormal{$endif});
TProcessOptions = set of TProcessOption;
TStartupOptions = set of TStartupOption;
TRunCommandEventCode = (RunCommandIdle,RunCommandReadOutput,RunCommandFinished,RunCommandException);
TRunCommandEventCode = (RunCommandIdle,RunCommandReadOutputString,RunCommandReadOutputStream,RunCommandFinished,RunCommandException);
TRunCommandEventCodeSet = set of TRunCommandEventCode;
TOnRunCommandEvent = procedure(Sender,Context : TObject;Status:TRunCommandEventCode;const Message:string) of object;
EProcess = Class(Exception);

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

@ -26,8 +26,9 @@ Resourcestring
SErrCannotCreatePipes = 'Failed to create pipes';
Const
// unused as of yet, I assume these are nice levels ?
PriorityConstants : Array [TProcessPriority] of Integer =
(20,20,0,-20);
(-10,19,0,-20,5,-5); // was (20,20,0,-20) before introduction of last two levels.
Const
GeometryOption : String = '-geometry';

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

@ -25,7 +25,8 @@ Resourcestring
Const
PriorityConstants : Array [TProcessPriority] of Cardinal =
(HIGH_PRIORITY_CLASS,IDLE_PRIORITY_CLASS,
NORMAL_PRIORITY_CLASS,REALTIME_PRIORITY_CLASS);
NORMAL_PRIORITY_CLASS,REALTIME_PRIORITY_CLASS,
BELOW_NORMAL_PRIORITY_CLASS,ABOVE_NORMAL_PRIORITY_CLASS);
procedure TProcessnamemacro.CloseProcessHandles;
begin