[Delphi] How to get the Memory Used by a Delphi Program

https://stackoverflow.com/questions/437683/how-to-get-the-memory-used-by-a-delphi-program

How to get the Memory Used by a Delphi Program

프로세스가 사용하고 있는 메모리 정보

uses psAPI;

function CurrentProcessMemory: Cardinal;
var
  MemCounters: TProcessMemoryCounters;
begin
  MemCounters.cb := SizeOf(MemCounters);
  if GetProcessMemoryInfo(GetCurrentProcess,
      @MemCounters,
      SizeOf(MemCounters)) then
    Result := MemCounters.WorkingSetSize
  else
    RaiseLastOSError;
end;