下面的过程放到一个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;
做把进程的占用的内存都交换出去了。
内存倒是节省了，但是会频繁地进行页面装载。
可能会影响程序运行效率
发表于 @ 2004年12月16日 09:42:00|评论(loading...)|编辑