paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 14:29:14 +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, TStartupOption = (suoUseShowWindow,suoUseSize,suoUsePosition,
suoUseCountChars,suoUseFillAttribute); 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; TProcessOptions = set of TProcessOption;
TStartupOptions = set of TStartupOption; 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; TOnRunCommandEvent = procedure(Sender,Context : TObject;Status:TRunCommandEventCode;const Message:string) of object;
EProcess = Class(Exception); EProcess = Class(Exception);

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

@ -26,8 +26,9 @@ Resourcestring
SErrCannotCreatePipes = 'Failed to create pipes'; SErrCannotCreatePipes = 'Failed to create pipes';
Const Const
// unused as of yet, I assume these are nice levels ?
PriorityConstants : Array [TProcessPriority] of Integer = 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 Const
GeometryOption : String = '-geometry'; GeometryOption : String = '-geometry';

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

@ -25,7 +25,8 @@ Resourcestring
Const Const
PriorityConstants : Array [TProcessPriority] of Cardinal = PriorityConstants : Array [TProcessPriority] of Cardinal =
(HIGH_PRIORITY_CLASS,IDLE_PRIORITY_CLASS, (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; procedure TProcessnamemacro.CloseProcessHandles;
begin begin