我在Delphi 5(安装FastMM)在Win32项目上工作,最近一直在努力大大减少在这个应用程序的内存使用。到目前为止,我已经减少了近一半的使用,但注意到一些工作在一个单独的任务。当我最小化应用程序时,内存使用从45兆下降到1兆,这归因于它分页到磁盘。当我恢复和重新启动工作,内存上升只有15兆。随着我继续工作,内存使用缓慢地上升,并最小化和恢复刷新回到15兆。所以对我的想法,当我的代码告诉系统释放内存,它仍然被依靠到Windows,实际的垃圾收集不会踢到很久以后。
任何人都可以确认/否认这种行为?是否有可能使内存清理编程?如果我继续使用该程序,而不进行这种手动刷新,我得到了一段时间内存错误,并希望消除这一点。谢谢。
解决方法
这是我们在
DSiWin32使用:
procedure DSiTrimWorkingSet; var hProcess: THandle; begin hProcess := OpenProcess(PROCESS_SET_QUOTA,false,GetCurrentProcessId); try SetProcessWorkingSetSize(hProcess,$FFFFFFFF,$FFFFFFFF); finally CloseHandle(hProcess); end; end; { DSiTrimWorkingSet }