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;

推荐分享