取当前进程内存使用量

Posted 疯狂delphi

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了取当前进程内存使用量相关的知识,希望对你有一定的参考价值。

 

使用单元:uses Psapi;

 

procedure TForm1.Button10Click(Sender: TObject);
var
b: Boolean;
pmc: TProcessMemoryCounters;
h: THandle;
I, J: Integer;
begin
h := GetCurrentProcess;
b := GetProcessMemoryInfo(h, @pmc, SizeOf(TProcessMemoryCounters));
if b then
begin
self.Memo1.Lines.Add(FormatDateTime(‘hh:mm:ss.zzz ‘, Now) + IntToStr(pmc.WorkingSetSize));
end;


// for I := 1 to 100 do
// begin
// SetLength(DataInfo, I);
//// for J := 0 to I - 1 do
//// DataInfo[J].ID := J;
// end;
//
// for I := 100 downto 1 do
// begin
// SetLength(DataInfo, I);
//// for J := 0 to I - 1 do
//// DataInfo[J].ID := J;
// end;
b := GetProcessMemoryInfo(h, @pmc, SizeOf(TProcessMemoryCounters));
if b then
begin
self.Memo1.Lines.Add(FormatDateTime(‘hh:mm:ss.zzz ‘, Now) + IntToStr(pmc.WorkingSetSize));
end;
end;

以上是关于取当前进程内存使用量的主要内容,如果未能解决你的问题,请参考以下文章

内存管理两部曲之物理内存管理

MFC下获取系统内存和当前进程的内存使用情况

如何测量当前 node.js 进程的峰值内存使用量

如何获取当前进程的CPU使用率,内存使用率

列出所有进程及其当前的内存和 CPU 消耗?

Linux 下取进程占用 cpu/内存 最高的前10个进程