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

fixed typo.

Browse Source 
git-svn-id: trunk@6274 -
This commit is contained in:
vincents 2004-11-20 13:14:28 +00:00
parent 020ed4dbc7
commit 588587c29e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/lazarusmanager.pas
View File

@ -168,7 +168,7 @@ procedure TLazarusManager.WaitForLazarus;
begin begin
ProcessHandle := OpenProcess(SYNCHRONIZE, false, PID); ProcessHandle := OpenProcess(SYNCHRONIZE, false, PID);
if ProcessHandle<>HWND(nil) then begin if ProcessHandle<>HWND(nil) then begin
WaitForSingleObject(ProcessHandle, INFINITE) of WaitForSingleObject(ProcessHandle, INFINITE);
CloseHandle(ProcessHandle); CloseHandle(ProcessHandle);
end; end;
end; end;
@ -261,6 +261,9 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.12 2004/11/20 13:14:28 vincents
fixed typo.
Revision 1.11 2004/11/19 12:23:43 vincents Revision 1.11 2004/11/19 12:23:43 vincents
fixed WaitForLazarus: close process handle after use. fixed WaitForLazarus: close process handle after use.