解决DELPHI的程序占内存的代码
来源:互联网 发布:淘宝怎样买爱情动作片 编辑:程序博客网 时间:2024/05/13 20:21
unit SCFastMemory;
interface
uses
SysUtils, Windows;
implementation
var
InProc: Boolean;
TimerID: Integer;
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, 3000, @HearBeatProc); //创建一个定时器
finalization
KillTimer(0, TimerID);
end.
保存为一个PAS,放到工程目录内,然后在主程序内引用即可。哈哈。没有使用前,程序内存占11M,使用后程序占用内存不超过500K。
interface
uses
SysUtils, Windows;
implementation
var
InProc: Boolean;
TimerID: Integer;
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, 3000, @HearBeatProc); //创建一个定时器
finalization
KillTimer(0, TimerID);
end.
保存为一个PAS,放到工程目录内,然后在主程序内引用即可。哈哈。没有使用前,程序内存占11M,使用后程序占用内存不超过500K。
0 0
- 解决DELPHI的程序占内存的代码
- 解决DELPHI的程序占内存的代码
- 如何利用Delphi释放所占的内存
- Delphi清理释放本程序内存的代码
- 阻止删除文件(文件占坑)的delphi代码
- 如何解决SQLServer占内存过多的问题
- 【转贴】如何解决SQLServer占内存过多的问题
- 如何解决SQLServer占内存过多的问题
- 如何解决SQLServer占内存过多的问题
- 如何解决SQLServer占内存过多的问题
- iOS图片占内存过大的问题完美解决
- Linux查看某一程序所占的内存—top
- C语言程序所占内存的分类
- 程序猿是如何解决SQLServer占CPU100%的
- java 程序占CPU100%问题的解决过程
- 检测delphi的程序的内存泄漏
- 检测delphi的程序的内存泄漏
- 如何解决delphi xe8编译大程序时内存不够的问题。
- QNAP系列NAS的QFIX(补丁)删除作业
- 如何检查Oracle表空间使用情况
- 我学过的java3
- Codeforces Round #352(Div 2)
- 2016之web前端面试题,最全最有用
- 解决DELPHI的程序占内存的代码
- Unity3D+moba+技能指示器(二)
- Swift溢出
- delphi基础开发技巧
- nil / Nil / NULL / NSNull
- String to Integer
- Request.Path HttpRequest.ValidateInputIfRequiredByConfig() 异常
- ToolBar的基本使用
- 成为C++高手之宏与枚举