青
青云
Unregistered / Unconfirmed
GUEST, unregistred user!
有的时候,程序一直开着,会发现占用内存越来越大;所以,我加了个时钟,每隔一秒种执行: //清除内存 if Win32Platform = VER_PLATFORM_WIN32_NT then begin SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF); end;结果内存从20多M,一下子降到半M;这个功能非常实用,以为有些delphi写的程序,需要7*24小时的开着;有的时候,会发现内存越来越大,糟糕的时候会蹭满整个物理内存, 使用上面的代码,可以让内存一直很小;我不知道频繁执行上面这段代码有什么副作用;但是使用下来,没觉得有什么副作用;