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 替换系统文件实现绕过杀软启动

Delphi hash类

Delphi基于prewitte算子的图像边缘检测

汇编数据宽度和字节序

Delphi中的split函数

Delphi 多关键词批量替换

Delphi disable_uac_vista

Delphi 动态设置屏幕分辨率

Delphi 判断时间是否合法 -isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday

Delphi经常用到的公共代码(tools.pas)

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