How to get the Memory Used by a Delphi Program

by

You can get useful memory usage information out of the Delphi runtime without using any direct Win32 calls:

unit X;

uses  FastMM4; //include this or method will return 0.
....

function GetMemoryUsed: UInt64;
var
  st: TMemoryManagerState;
  sb: TSmallBlockTypeState;
begin
  GetMemoryManagerState(st);
  result :=  st.TotalAllocatedMediumBlockSize
           + st.TotalAllocatedLargeBlockSize;
  for sb in st.SmallBlockTypeStates do begin
    result := result + sb.UseableBlockSize * sb.AllocatedBlockCount;
  end;
end;

The best thing about this method is that it’s strictly tracked: when you allocate memory, it goes up, and when you deallocate memory, it goes down by the same amount right away. I use this before and after running each of my unit tests, so I can tell which test is leaking memory (for example).

More Related Contents:

  1. How to get a stack trace from FastMM
  2. How to pass pointer to array of byte to function?
  3. Problems with ADC/SBB and INC/DEC in tight loops on some CPUs
  4. How can I allow a form to accept file dropping without handling Windows messages?
  5. ORM for DELPHI win32
  6. How to properly free records that contain various types in Delphi at once?
  7. Which logging library is better? [closed]
  8. Rotate bitmap by real angle
  9. FTP Over SSH (SFTP) In delphi 2010
  10. What Can I Do To Reduce My Executable’s Size (Delphi)?
  11. How to associate a program with a file type, but only for the current user?
  12. How to implement multiple inheritance in delphi?
  13. Is there a way to instantiate a class by its name in delphi?
  14. How to split string by a multi-character delimiter?
  15. TLabel and TGroupbox Captions Flicker on Resize
  16. Delphi: How to hide ancestor constructors?
  17. Step by step upgrade of Indy 10 in Delphi 2009
  18. Could not find system file when it actually exists
  19. Delphi: idHttp+SSL
  20. How do I draw the selected list-box item in a different color?
  21. How do I make Beyond Compare ignore certain differences while comparing versions of Delphi Form Files
  22. TThread.resume is deprecated in Delphi-2010 what should be used in place?
  23. Plugins system for Delphi application – bpl vs dll?
  24. XPath and TXmlDocument
  25. Delphi, How to get all local IPs?
  26. Delphi event handling, how to create own event
  27. Accidentally created a virus?
  28. Free Encryption library for Delphi [closed]
  29. Why are Delphi objects assigned even after calling .Free?
  30. GetThreadLocale returns different value than GetUserDefaultLCID?

Leave a Comment