Delphi Source Code - How to get the total and available memory

Code Category

ActiveX Components Database Files Forms Graphic Internet/Lan Math Miscellaneous Multimedia Printing Strings System Information Windows

Migrate Goldmine to Salesforce

Delphi source code for System Information >> Get the total and available memory

Category: System Information
Title: Get the total and available memory
Date added: 15.03.2006
Hits: 3602

procedure TForm1.Button1Click(Sender: TObject);
var
  memory: TMemoryStatus;
begin
  memory.dwLength := SizeOf(memory);
  GlobalMemoryStatus(memory);
  ShowMessage('Total memory: ' +
              IntToStr(memory.dwTotalPhys) + ' Bytes');
  ShowMessage('Available memory: ' +
              IntToStr(memory.dwAvailPhys) + ' Bytes');
end;

Related Delphi Source Code:

1. How to retrieve CPU information? (12301 Hits)

2. How to determinate in whitch way windows is started? (2099 Hits)

3. How to get the time zone? (3523 Hits)

4. How to check if a partition is NTFS or FAT formated? (2459 Hits)

5. How to get the Windows Version? (3222 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.