取当前进程内存使用量
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;
以上是关于取当前进程内存使用量的主要内容,如果未能解决你的问题,请参考以下文章