Mega Code Archive

 

Categories / Delphi / Examples

 

Showmemusage

TO SHOW MOW MUCH MEMORY IS BEING USED/HOW MUCH IS FREE put two labels on a form, one that says something like memory used: and one that says something like free memory adjacent to the first one place another label, with no caption, and called UsedMemLabel adjacent to the second one place another label, also with no caption, called MemFreeLabel and use the following code: var MS: TMemoryStatus; begin StatsForm.UsedMemLabel.Caption := FormatFloat('#,###" KB"', MS.dwTotalPhys / 1024); StatsForm.MemFreeLabel.Caption := Format('%d %%', [MS.dwMemoryLoad]); end;