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

Closing process handles in Windows. Patch from Vincent Snijders

Browse Source
This commit is contained in:
michael 2004-07-30 12:55:42 +00:00
parent 4882e76657
commit 8ad5722cb1
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
fcl/inc/process.pp
View File

@ -143,6 +143,9 @@ Type
FPRocessPriority : TProcessPriority;
FStartupInfo : TStartupInfo;
Procedure FreeStreams;
{$ifdef win32}
Procedure CloseProcessHandles;
{$endif}
Function GetExitStatus : Integer;
Function GetHandle : THandle;
Function GetRunning : Boolean;
@ -249,6 +252,9 @@ begin
If assigned (FThreadAttributes) then Dispose (FThreadAttributes);
FEnvironment.Free;
FreeStreams;
{$ifdef win32}
CloseProcessHandles;
{$endif}
Inherited Destroy;
end;
@ -282,6 +288,18 @@ begin
end;
end;
{$ifdef win32}
procedure TProcess.CloseProcessHandles;
begin
with FProcessInformation do begin
if (hProcess<>0) then
CloseHandle(hProcess);
if (ThreadHandle<>0) then
CloseHandle(hThread);
end;
end;
{$endif}
Function TProcess.GetExitStatus : Integer;
begin
@ -945,7 +963,10 @@ end;
end.
{
$Log$
Revision 1.19 2004-02-03 08:12:22 michael
Revision 1.20 2004-07-30 12:55:42 michael
Closing process handles in Windows. Patch from Vincent Snijders
Revision 1.19 2004/02/03 08:12:22 michael
+ Patch from Vincent Snijders to fix passing environment vars in win32
Revision 1.18 2003/10/30 20:34:47 florian