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

+ Patch from Vincent Snijders to correctly handle PeekExitStatus

Browse Source
This commit is contained in:
michael 2004-09-09 13:47:38 +00:00
parent be837c0f23
commit 1a1c9f426b
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/inc/process.pp
View File

@ -85,7 +85,7 @@ Type
Procedure SetWindowWidth (Value : Cardinal);
Procedure CreateStreams(InHandle,OutHandle,Errhandle : Longint);
procedure SetApplicationname(const Value: String);
procedure SetPRocessOptions(const Value: TProcessOptions);
procedure SetProcessOptions(const Value: TProcessOptions);
procedure SetActive(const Value: Boolean);
procedure SetEnvironment(const Value: TStrings);
function PeekExitStatus: Boolean;
@ -307,7 +307,10 @@ end;
end.
{
$Log$
Revision 1.22 2004-09-08 18:17:23 michael
Revision 1.23 2004-09-09 13:47:38 michael
+ Patch from Vincent Snijders to correctly handle PeekExitStatus
Revision 1.22 2004/09/08 18:17:23 michael
+ Removed extra handle on process.
Revision 1.21 2004/08/12 14:33:55 michael

2
fcl/win32/process.inc
View File

@ -21,7 +21,7 @@ Function TProcess.PeekExitStatus : Boolean;
begin
GetExitCodeProcess(ProcessHandle,FExitCode);
Result:=(FExitCode=Still_Active);
Result:=(FExitCode<>Still_Active);
end;
Function GetStartupFlags (P : TProcess): Cardinal;