盒子论坛 v2.1

据称可以在设计期减少Delphi IDE的内存占有量至3~5M。编译为BPL后以插件方式安装。
我个人的看法是，使用此插件似乎只是取消部分页面数据在物理存储器的映射。总的内存占有量还是没有下降。而且IDE不可能只占用3~4M内存，5秒钟一次执行此操作的话，页面文件和物理内存的数据交换会很频繁的进行，或许会有较大的效率损失。
总之仁者见仁，智者见智吧……
此插件转载自VCLxx论坛，原地址：
http://forum.vclxx.org/topic.asp?TOPIC_ID=30282&FORUM_ID=40&CAT_ID=7&Topic_Title=Delphi+2005+Update2&Forum_Title=%A7%F5%BA%FB%C5%AA%AA%CC%B1M%B0%CF
by: 武稀松(王锐)
unit UnitMMSave;

interface

uses
Classes, Windows, SysUtils, StrUtils, ExtCtrls, Forms,
Dialogs;

implementation

const
Frequency = 5000;//每隔五秒钟整理一次内存，速度很快的：）
var
TimerID: Integer;
InProc: Boolean;

procedure SaveMemory;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin //整理内存
SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
end;
end;

//定时器要执行的回调函数
procedure HearBeatProc(Wnd: HWnd; Msg, Event, dwTime: Integer); stdcall;
begin
if (InProc = False) then
begin
InProc := True;
try
SaveMemory;
finally
InProc := False;
end;
end;
end;

initialization
SetTimer(0, 0, Frequency, @HearBeatProc); //创建一个定时器
finalization
KillTimer(0, TimerID);
end.
----------------------------------------------
-

作者：

easylee (木头)	★☆☆☆☆	-
	普通会员

2005/3/25 9:19:09

1楼：

Delphi2005打上update 2补丁后，稳定多了，内存使用一般在200MB左右
----------------------------------------------
-

信息

登陆以后才能回复