修改Classes.pas
在initialization段前加上
procedure DeleteObjectInstance;
Var
Block : PInstanceBlock;
Begin
While InstBlockList <> NIL do
Begin
Block := InstBlockList^.Next;
VirtualFree(InstBlockList, 4096, MEM_DECOMMIT);
InstBlockList := Block;
end;
end;
在finalization段最后调用它
DeleteObjectInstance;
责任编辑:小草