本文整理自网络,侵删。
procedure ClearSysMemory;begin // 清理内存,减少内存占有量(移至缓存) if Win32Platform = VER_PLATFORM_WIN32_NT then SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);end;
相关阅读 >>
Delphi 是否是闰年- isleapyear、isinleapyear
Delphi comparedatetime、comparedate、comparetime、samedatetime、samedate、sametime �c 对比时间的函数
更多相关阅读请进入《Delphi》频道 >>