1. Total Physical Memory

  2. Total Page Memory

  3. Available Page Memory

  4. Available Physical Memory

  5. Available Virtual Memory

  6. Memory Used Percentage


Home

 

Pages: 1  |  2  |  3  |  4  |  5  |


Total Physical Memory

 

function TotalPhysicalMemory: Int64;
var
MemStat: TMemoryStatus;
begin
 

MemStat.dwLength := SizeOf(MemStat);
GlobalMemoryStatus(MemStat);
result := MemStat.dwTotalPhys;
 

end;

 
Back to Top

Total Page Memory

 

function TotalPageMemory: Int64;
var
MemStat: TMemoryStatus;
begin
 

MemStat.dwLength := SizeOf(MemStat);
GlobalMemoryStatus(MemStat);
result := MemStat.dwTotalPageFile;
 

end;

 
Back to Top

Available Page Memory

 

function AvailablePageMemory: Int64;
var
MemStat: TMemoryStatus;
begin
 

MemStat.dwLength := SizeOf(MemStat);
GlobalMemoryStatus(MemStat);
result := MemStat.dwAvailPageFile;
 

end;

 
Back to Top

Available Physical Memory

 

function AvailablePhysicalMemory: Int64;
var
MemStat: TMemoryStatus;
begin
 

MemStat.dwLength := SizeOf(MemStat);
GlobalMemoryStatus(MemStat);
result := MemStat.dwAvailPhys;
 

end;

 
Back to Top

Available Virtual Memory

 

function AvailableVirtualMemory: Int64;
var
MemStat: TMemoryStatus;
begin
 

MemStat.dwLength := SizeOf(MemStat);
GlobalMemoryStatus(MemStat);
result := MemStat.dwAvailVirtual;
 

end;

 
Back to Top

Memory Used Percentage

 

function MemoryUsedPercentage: Integer;
var
MemStat: TMemoryStatus;
begin
 

MemStat.dwLength := SizeOf(MemStat);
GlobalMemoryStatus(MemStat);
result := MemStat.dwMemoryLoad;
 

end;

 
Back to Top

Copyright 2006  [PatilanSoft]. All rights reserved.