admin

[系统应用] delphi 清理内存

procedure ClearMemory;

begin

        if Win32Platform = VER_PLATFORM_WIN32_NT then

        begin

                SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);

                Application.ProcessMessages;

        end;

end;



放到timer里,定时执行下!

#1楼
发帖时间:8月前   |   查看数:0   |   回复数:0
游客组