整理内存的API函数是什么?马上结贴.谢谢

2006-02-22 11:47:40 288 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Qt 插件开发 plugin 超详细有源码 Qt 插件化开发框架类似于前后端的微服务的场景，授权哪个微服务则前端可以使用哪个微服务，插件就行硬件插卡一样，可以被随时删除、插入和修改，所以结构很灵活，容易修改，方便软件的升级和维护；插件主要面向接口编程，无需访问.lib文件，热插拔、利于团队开发。即使在程序运行时.dll不存在，也可以正常启动，只是相应插件功能无法正常使用而已；动态库需要访问.lib文件，而且在程序运行时必须保证.lib存在，否则无法正常启动；阅读详情

我记得在CSDN上看过一篇文章,说是使用程序保持在占用内存只有10K的水平,因为调用了一个整理内存的API,哪位老大能帮忙找到那篇文章,或者能告诉那个API函数,谢谢.

...全文

FortiOS路径遍历漏洞CVE-2022-41328实战复现：从环境搭建到漏洞利用全记录本文深入解析FortiOS路径遍历漏洞CVE-2022-41328，从漏洞背景、影响范围到技术原理进行全面剖析。提供详细的漏洞复现环境搭建步骤和实战利用方法，并给出官方修复方案与临时缓解措施，帮助企业有效防御此类防火墙漏洞风险。阅读详情

老码不识途

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

ly_liuyang 2006-02-22

打赏
举报

procedure DefragMemory(MemoryLimit:Integer);
var
Pointers : Array [0..1024] of Pointer;
Limit ,
I2,
I : Integer;
P : Pointer;
Step : Integer;
Steps : Integer;
begin
FAbort := False;
If FWorking then Exit;
FWorking:=True;
Limit:=MemoryLimit;
If Limit>1024 then Limit:=1024;
If Assigned(FOnBeforeDefrag) then FOnBeforeDefrag(Self);
{ Calculating how many steps...}
Steps:=(MemoryLimit*2);

Step:=0;

{ Clean pointer...}
For I:= 0 to Limit do Pointers[I]:=nil;

{ Allocating Memory }
For I:=0 to Limit-1 do
Begin
P:=VirtualAlloc(nil, 1024*1024, MEM_COMMIT, PAGE_READWRITE + PAGE_NOCACHE);
Pointers[I]:=p;
asm
pushad
pushfd
mov edi, p
mov ecx, 1024*1024/4
xor eax, eax
cld
repz stosd
popfd
popad
end;
Inc(Step);
If Assigned(FOnProgress) then OnProgress(Self,Round((Step/Steps)*100));
If FAbort then
Begin
For I2:=0 to I do
Begin
VirtualFree(Pointers[I2], 0, MEM_RELEASE);
End;
Step:=(MemoryLimit*2);
FWorking:=False;
If Assigned(FOnAfterDefrag) then FOnAfterDefrag(Self);
Exit;
End;
end;

{ DeAllocating Memory }

For I:=0 to Limit-1 do
Begin
VirtualFree(Pointers[i], 0, MEM_RELEASE);
Inc(Step);
If Assigned(FOnProgress) then OnProgress(Self,Round((Step/Steps)*100));
If FAbort then
Begin
{ Warning! : Force abort, w/o de-allocating memory }
Step:=(MemoryLimit*2);
FWorking:=False;
If Assigned(FOnAfterDefrag) then FOnAfterDefrag(Self);
Exit;
End;
End;

FWorking:=False;

If Assigned(FOnAfterDefrag) then FOnAfterDefrag(Self);
End;

GARNETT2183 2006-02-22

打赏
举报

有这样的东东吗，关注....

老码不识途 2006-02-22

打赏
举报

我在程序中加上了这个,呵呵.内存果然变小了.不知道行不行.多谢楼上各位老大的帮助.

if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
application.ProcessMessages;
end;

sdzeng 2006-02-22

打赏
举报

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1606059

cuteant 2006-02-22

打赏
举报

mark

整理内存的API函数是什么?马上结贴.谢谢

相关推荐