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;
 

相关阅读 >>

Delphiwindows 下编译 exe 文件时把一个外部 txt 文件编译到 exe 里面

Delphi windows 底下根据一个进程的名字杀死一个进程的代码

delph 自带url编码函数 tnetencoding

Delphi 获取当前系统版本号

Delphi 下载并运行的代码

Delphi xe6取得android智能手机的电话号码等的终端信息

Delphi获取句柄并发送消息

Delphi 自带rest调试工具 restdebugger 用法

Delphi里面判断一个字符串在另一个字符串中出现的次数

Delphi 取到系统临时文件夹路径

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

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