本文整理自网络,侵删。
procedure ClearSysMemory;begin // 清理内存,减少内存占有量(移至缓存) if Win32Platform = VER_PLATFORM_WIN32_NT then SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);end;
相关阅读 >>
Delphi strutils.leftstr、strutils.rightstr - 提取左右字符串
Delphi 关于 beep、messagebeep 和 windows.beep
format、formatdatetime、formatfloat 的用法
更多相关阅读请进入《Delphi》频道 >>