本文整理自网络,侵删。
procedure ClearSysMemory;begin // 清理内存,减少内存占有量(移至缓存) if Win32Platform = VER_PLATFORM_WIN32_NT then SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);end;
相关阅读 >>
Delphi 用cxgrid把数据导出到excel时乱码的解决办法
Delphi controls 属性与继承 tshape 类的小练习
Delphi xe实现android 添加图片资源到应用并使用它
更多相关阅读请进入《Delphi》频道 >>