delphi 查询当前进程的内存使用大小

本文整理自网络，侵删。

 
uses Winapi.PsAPI;
function GetProcMemoryUsed: Cardinal;
var
  Info: PPROCESS_MEMORY_COUNTERS;
  ProcHandle: HWND;
begin
  // 查询当前进程的内存使用大小
  Result := 0;
  ProcHandle := 0;
  Info := New(PPROCESS_MEMORY_COUNTERS);
  Info^.cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
  try
    //由 CurrentProcessId 取得进程对象的句柄
    ProcHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
                              False, GetCurrentProcessId);
    if GetProcessMemoryInfo(ProcHandle, Info, Info^.cb) then
      Result := Info^.WorkingSetSize;
  finally
    if (ProcHandle <> 0) then
      CloseHandle(ProcHandle);
    Dispose(Info);
  end;
end;
 

相关阅读 >>

Delphi 得到 winrar 处理解压缩文件的返回值 ？

Delphi 利用tdictionary 文本去重

Delphi idhttpserver的使用方法

在 Delphi 中调用 javascript

Delphi 实现如何枚举所有打开的ie选项卡

Delphi 网站后台扫描例子

Delphi firdac 对 sqlite 数字, int64也会被截断，会出现负数情况处理

Delphi 获得控件所在的窗体

Delphi 批量删除同类文件的函数

如何使用Delphi 10 seattle的android应用做intent的发送和接收

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 查询当前进程的内存使用大小