comserv.pas 有内存泄漏。
如果在project中先加入cnMemProf(内存泄漏检测单元)
然后在调用 uses ComServ;
即使不写任何的其他语句,在退出的时候还是会出现一处内存泄漏。
其问题代码如下:
==============================================
initialization
begin
OleAutHandle := SafeLoadLibrary('OLEAUT32.DLL');
ComServer := TComServer.Create;
if not ModuleIsLib then
begin
SaveInitProc := InitProc;
InitProc := @InitComServer;
AddTerminateProc(@AutomationTerminateProc);
end;
end;
finalization
begin
ComServer.Free;
ComServer := nil;
FreeLibrary(OleAutHandle);
end;
============================================
但是还没有找到解决的办法。
|