主页 / 问题 / 990276
Accepted
Kromster
Asked:2020-06-07 17:03:31 +0000 UTC2020-06-07 17:03:31 +0000 UTC

Delphi中如何查看应用程序占用的RAM量？

  • 772

当应用程序处理大量数据时，我想启动一个单独的后台线程并监控应用程序占用的 RAM 量。通过类比任务管理器如何显示分配给应用程序的内存。可以使用什么方法/函数从正在运行的程序中找出来？最好是 RTL 而不是 WinAPI。

计算方法（是否统计已用DLL的内存，是否考虑swap中的卸载等）并不是很基础。我对数十或数百兆字节的动态更感兴趣。因此，将优先考虑最简单的测量方法，而不是最“准确”的测量方法。

Windows 操作系统，x32 应用程序。

（英语中的类似问题）

windows

3 个回答

  1. Best Answer
    uses .., psAPI, Windows;

procedure TForm1.Button1Click(Sender: TObject);
var
  pmc: PPROCESS_MEMORY_COUNTERS;
  cb: Integer;
begin
  Memo1.Lines.Clear;
  cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
  GetMem(pmc, cb);
  pmc^.cb := cb;
  if GetProcessMemoryInfo(GetCurrentProcess(), pmc, cb) then
  begin
    Memo1.Lines.Add( FloatToStr(pmc^.WorkingSetSize/1024) + ' KB');
    Memo1.Lines.Add( FloatToStr(pmc^.PagefileUsage/1024) + ' KB');
  end;
  FreeMem(pmc);
end;

    PagefileUsage/1024- “虚拟内存”领域。
    WorkingSetSize/1024- 与“内存”字段非常接近的值。

    WorkingSetSize是工作集，应用程序在用户模式和内核模式下占用的内存量，即 包括为存储系统中程序信息而分配的所有内存（进程对象、线程对象、句柄等）。

    • 3

  2. Delphi 的标准内存管理器提供了显示Delphi 内存分配的GetMemoryManagerState函数。

    该网站上还有一个使用示例。

    • 2

  3. 好吧，以防万一，我会检查我们是否有 Win95/Win98。另外，您可以使用 OpenProcess 而不是 GetCurrentProcess （虽然，诚然，这更慢）。像这样的东西：

    function GetProgramRAMUsed:int64;
var
  MainHandle: THandle;
  pmc: PROCESS_MEMORY_COUNTERS;
  cb: Integer;
begin
  if Win32Platform = 2 then
     begin
          MainHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, GetCurrentProcessID);
          cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
          GetProcessMemoryInfo(MainHandle, @pmc, cb);
          Result:=pmc.WorkingSetSize;
          CloseHandle(MainHandle);
     end
   else Result:=-1;
end;
    • 0

相关问题