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

* two new priority classes for all but wince. See comments in process.pp

Browse Source 
* some left over changes to RunCommandEventCode in preparation of more events.

git-svn-id: trunk@39681 -
This commit is contained in:
marco 2018-08-29 10:00:36 +00:00
parent b929b8b8eb
commit 0f619c3ef8
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