本文整理自网络,侵删。
procedure ClearSysMemory;begin // 清理内存,减少内存占有量(移至缓存) if Win32Platform = VER_PLATFORM_WIN32_NT then SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);end;
相关阅读 >>
Delphi 获取其它软件的tlistbox句柄,怎么取得listbox中的数据
Delphi环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决
Delphi xe5 android手机端转换ansi字符串
更多相关阅读请进入《Delphi》频道 >>