delphi实时监视应用程序内存使用量

最新推荐文章于 2024-07-23 14:36:35 发布

weixin_34050389

最新推荐文章于 2024-07-23 14:36:35 发布

阅读量528

点赞数

文章标签： python 操作系统

原文链接：https://my.oschina.net/kavensu/blog/194765

版权

2019独角兽企业重金招聘Python工程师标准>>>

当你的产品已经完成了客户的需求功能，你是否已经认为你的产品已经完成了呢？如果你的客户在使用你

的产品一段时间后跑来向你诉苦：“产品用的时间越久，速度就越慢”，那么你就需要注意你的产品是否

存在内存泄露了。想要实时查看你的产品的内存使用量，下面来告诉你一个方法。

//----需要Uses PsAPI单元。---- www.delphitop.com

function GetProcessMemUse(PID: Cardinal): Cardinal;
var
pmc: PPROCESS_MEMORY_COUNTERS; //uses psApi
ProcHandle: HWND;
iSize: DWORD;
begin
Result := 0;
iSize := SizeOf(_PROCESS_MEMORY_COUNTERS);
GetMem(pmc, iSize);
try
pmc^.cb := iSize;
ProcHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
False, PID); //由PID取得进程对象的句柄
if GetProcessMemoryInfo(ProcHandle, pmc, iSize) then
Result := pmc^.WorkingSetSize;
finally
FreeMem(pmc);
end;
end;

function GetCurrentMemUse: Cardinal;
begin
Result := GetProcessMemUse(GetCurrentProcessId);
end;

注：GetCurrentProcess返回进程句炳（只在此进程有效)
GetCurrentProcessID返回的进程的唯一标识(整个操作系统有效)

在使用的时候，可以在你的主窗体加一个TStatusbar，放一个TTimer用来实时显示内存使用量：

StatusBar.Panels[2].Text := format('memory use: %d KB', [GetCurrentMemUse div 1024]);//1kb=1024b

把代码放到你的程序里，看看你的代码有没有管理好内存。

转载于:https://my.oschina.net/kavensu/blog/194765