取当前进程内存使用量
使用单元: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;
相关文章
- 使用上下文装饰器调试Pytorch的内存泄漏问题
- 定时自动释放SQL SERVER占用内存的方法
- C/C++ 将ShellCode注入进程内存
- C/C++ 遍历进程内存块
- 【Android 逆向】修改运行中的 Android 进程的内存数据 ( Android 系统中调试器进程内存流程 | 编译内存调试动态库以及调试程序 )
- Linux(CentOS) 如何查看当前占用CPU或内存最多的K个进程详解程序员
- linux中监控CPU、内存和磁盘状态的shell脚本。(centos7)详解程序员
- Linux下分配进程内存技巧(linux给进程分配内存)
- 实时查看Linux进程内存使用情况(linux看进程内存)
- Linux下进程内存使用分布解析(linux进程内存分布)
- Linux进程内存布局解析(linux进程的内存布局)
- 增强PS性能:Linux内存管理技巧(ps内存linux)
- 深入探究:Linux 进程内存结构原理及特点(linux进程内存结构)
- MySQL优化:减少内存占用(mysql减少内存占用)
- Linux查看物理内存的方法(linux获取物理内存)
- Linux内存管理:分段技术(linux内存分段)
- 掌握Oracle内存管理,跨越进程边界(oracle内存管理进程)
- 如何查看Redis剩余内存(如何看redis剩余内存)
- 使用Redis有效控制内存1G大小(redis限制1g)
- Redis进程内存仅有十几M(redis进程只有十几m)
- 教你5分钟轻松搞定内存字节对齐