频道分类

delphi 整理内存

作者:admin 来源: 日期:2020/4/7 15:19:26 人气: 标签:

 
procedure ClearSysMemory;
begin
  // 清理内存,减少内存占有量(移至缓存)
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
end;

上一篇:delphi 取 UTC/TFileTime 时间下一篇:没有资料