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

fixed WaitForLazarus: close process handle after use.

Browse Source 
git-svn-id: trunk@6269 -
This commit is contained in:
vincents 2004-11-19 12:23:43 +00:00
parent ab6de4e43d
commit aa5b195a2d
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/lazarusmanager.pas
View File

@ -167,7 +167,10 @@ procedure TLazarusManager.WaitForLazarus;
ProcessHandle: THandle;
begin
ProcessHandle := OpenProcess(SYNCHRONIZE, false, PID);
WaitForSingleObject(ProcessHandle, INFINITE);
if ProcessHandle<>HWND(nil) then begin
WaitForSingleObject(ProcessHandle, INFINITE) of
CloseHandle(ProcessHandle);
end;
end;
{$ELSE}
{$IFDEF UNIX}
@ -258,6 +261,9 @@ end;
end.
{
$Log$
Revision 1.11 2004/11/19 12:23:43 vincents
fixed WaitForLazarus: close process handle after use.
Revision 1.10 2004/11/06 11:29:24 vincents
Changes due to the new fpc unit directory structure.

5
ide/main.pp
View File

@ -3935,7 +3935,7 @@ begin
AncestorType,true));
if CInterface=nil then begin
// error streaming component -> examine lfm file
writeln('ERROR: streaming failed lfm="',LFMBuf.Filename,'"');
DebugLn('ERROR: streaming failed lfm="',LFMBuf.Filename,'"');
NewComponent:=nil;
AnUnitInfo.Component:=NewComponent;
// open lfm file in editor
@ -10974,6 +10974,9 @@ end.
{ =============================================================================
$Log$
Revision 1.793 2004/11/19 12:23:43 vincents
fixed WaitForLazarus: close process handle after use.
Revision 1.792 2004/11/18 16:01:14 vincents
replaced writeln by DebugLn