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

* Made FRunning and FExitCode protected

Browse Source 
git-svn-id: trunk@8757 -
This commit is contained in:
michael 2007-10-09 21:12:04 +00:00
parent 33c4197f43
commit 8127eb0b0f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-base/src/inc/process.pp
View File

@ -56,7 +56,6 @@ Type
FCurrentDirectory : String; FCurrentDirectory : String;
FDesktop : String; FDesktop : String;
FEnvironment : Tstrings; FEnvironment : Tstrings;
FExitCode : Cardinal;
FShowWindow : TShowWindowOptions; FShowWindow : TShowWindowOptions;
FInherithandles : Boolean; FInherithandles : Boolean;
FRunning : Boolean; FRunning : Boolean;
@ -85,6 +84,8 @@ Type
procedure SetEnvironment(const Value: TStrings); procedure SetEnvironment(const Value: TStrings);
function PeekExitStatus: Boolean; function PeekExitStatus: Boolean;
Protected Protected
FRunning : Boolean;
FExitCode : Cardinal;
FInputStream : TOutputPipeStream; FInputStream : TOutputPipeStream;
FOutputStream : TInputPipeStream; FOutputStream : TInputPipeStream;
FStderrStream : TInputPipeStream; FStderrStream : TInputPipeStream;