博客介绍将一段ClearMemory过程放入Timer，每隔5秒执行一次，该过程会把进程占用内存交换出去以节省内存，但会频繁进行页面装载，可能影响程序运行效率。
下面的过程放到一个Timer中，每隔一段时间执行一次，如5秒。
{
************************************
* Clear Memory
* From Muse2008
************************************
}
procedure ClearMemory;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
application.ProcessMessages;
end;
end;
做把进程的占用的内存都交换出去了。
内存倒是节省了，但是会频繁地进行页面装载。
可能会影响程序运行效率
{
************************************
* Clear Memory
* From Muse2008
************************************
}
procedure ClearMemory;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
application.ProcessMessages;
end;
end;
做把进程的占用的内存都交换出去了。
内存倒是节省了，但是会频繁地进行页面装载。
可能会影响程序运行效率
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
