注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

减少delphi的程序使用的内存大小  

2013-01-13 15:18:59|  分类: delphi xe3 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
减少delphi的程序使用的内存大小  

最近在写一个后门程序,无意中看到这么一段代码,试了下,果然有效。原来的程序占用5M多的内存,使用后果然到了600K左右,不过料想代码的执行效率可能会被缩减了,因为原先预分配的内存空间可能变成动态产生的了,不过对于我的程序来说速度不是问题。

//来自 http://www.cn-doc.com/_soft_delphi_tech_doc/2005_08_18_01/20050818012858312.htm

 好多天没有写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;
  评论这张
 
阅读(310)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017