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 中string字符串转换byte[]字节数组

Delphi 控制台程序获取系统信息

Delphi 获得idhttp redirect后的url

Delphi的对象注销方法destroy和free的区别

Delphi firedac 下的 sqlite [2] - 第一个例子

Delphi 英文单词第一个字母大写

Delphi gethref 获取<a href="链接"></a>中href的数据

vclzip控件的使用

Delphi 提取标签之间的字符串（重复标签）

Delphi xe5 android 发短信以及目录

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

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