procedure clearmemory;
begin
begin
if win32platform = ver_platform_win32_nt then
begin
setprocessworkingsetsize(getcurrentprocess, $ffffffff, $ffffffff);
application.processmessages;
end;
begin
setprocessworkingsetsize(getcurrentprocess, $ffffffff, $ffffffff);
application.processmessages;
end;
end;
转载于:https://blog.51cto.com/zsqztg/174677