将应用程序11M内存占用，降至500K

首页 | 图形图象 | 编程开发 | 操作系统 | 数据库 | 服务器 | 网络安全 | 人才酷 | 招聘 | 资源 | 酷站 | 顶尖周刊 |

热门文章

编辑推荐

相关文章
深入解析金山毒霸6的三个特殊应用瑞星2006版之应用问答集锦防火墙封阻应用攻击的八项技术安全：10个常用数字证书应用实例系统管理员应用- CMD 命令集 iptables应用之动态DNS ftp命令大全及应用实例 LDAP应用概述与qmail+LDAP安装配 LDAP应用概述与qmail+LDAP安装配小型企业的Sendmail邮件服务器应

您现在的位置：顶尖设计 >> IT学院 >> 编程开发 >> Delphi >> 文章正文

将应用程序11M内存占用，降至500K

作者：muse2008 来源：csdn 点击：更新：2006-12-19

简介：

好多天没有写BLog了，最近解决了一个问题-减少内存占用。不过是有条件的，只能在WinXp,Win2K中应用此方法，不显示主窗体一直运行的程序最佳。以前程序占用11M内存，我用动态创建窗口的方法只能减少不到100K，应用此方法后内存占用只有496K。把下面的过程放到一个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;
好多天没有写BLog了，最近解决了一个问题-减少内存占用。不过是有条件的，只能在WinXp,Win2K中应用此方法，不显示主窗体一直运行的程序最佳。以前程序占用11M内存，我用动态创建窗口的方法只能减少不到100K，应用此方法后内存占用只有496K。把下面的过程放到一个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;