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 datamodule1 fdconnection1数据库连接

Delphi 动态数组传递数据示例

Delphi xe10 获取屏幕截图

Delphi 如何识别应用程序没有响应

Delphi 文本列数值排序从小到到

Delphi中转向语句break，continue，exit的作用

Delphi pchar与string互转

Delphi检测当前鼠标点击处是否在指定控件内部

Delphi 利用tcomm组件 spcomm 实现串行通信

Delphi nativeexcel获取excel所有列

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

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