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 两个exe之间共享数据

Delphi 从记事本导入记录

Delphi 判断文件是否被使用

Delphi 动态库里查询是否联接数据库

Delphi结合winrar生成自解压文件

Delphi完美的线程注入和卸载

Delphi获取注册表run下所有值

一些不常用的且功能相当有用的Delphi函数

Delphi getprocessidentity 获取当前登录状态的管理员

Delphi删除只读文件

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

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