1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Var
  Form1  : TForm1;
  Memory : TMemoryStatus;

Implementation

{$R *.dfm}


Procedure TForm1.FormCreate(Sender: TObject);
Begin
 Memory.dwLength := SizeOf(Memory);
 GlobalMemoryStatus(Memory);
 Memo1.lines.Clear;
 Memo1.Lines.Add ('Memory total: ' + IntToStr(Memory.dwTotalPhys
  div 1048576) + ' MB');
 Memo1.Lines.Add ('Memory free : ' + IntToStr(Memory.dwAvailPhys
  div 1048576) + ' MB');
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.FormCreate(Sender: TObject);
var
  Memory: TMemoryStatusEx;
begin
  Memory.dwLength := SizeOf(Memory);
  if GlobalMemoryStatusEx(Memory) <> 0 then
  begin
    Memo1.Lines.Clear;
    Memo1.Lines.Add('Memory total: ' + IntToStr(Memory.ullTotalPhys div 1048576) + ' MB');
    Memo1.Lines.Add('Memory free : ' + IntToStr(Memory.ullAvailPhys div 1048576) + ' MB');
  end
  else
    Memo1.Text := SysErrorMessage(GetLastError);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

type
 DWORDLONG = Int64; // ULONGLONG
type
  PMemoryStatusEx = ^TMemoryStatusEx;
  LPMEMORYSTATUSEX = PMemoryStatusEx;
  {$EXTERNALSYM LPMEMORYSTATUSEX}
  _MEMORYSTATUSEX = packed record
    dwLength : DWORD;
    dwMemoryLoad : DWORD;
    ullTotalPhys : DWORDLONG;
    ullAvailPhys : DWORDLONG;
    ullTotalPageFile: DWORDLONG;
    ullAvailPageFile: DWORDLONG;
    ullTotalVirtual : DWORDLONG;
    ullAvailVirtual : DWORDLONG;
  end;
  {$EXTERNALSYM _MEMORYSTATUSEX}
  TMemoryStatusEx = _MEMORYSTATUSEX;
  MEMORYSTATUSEX = _MEMORYSTATUSEX;
  {$EXTERNALSYM MEMORYSTATUSEX}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type
  TMemoryStatusEx = record
    dwLength: DWORD;
    dwMemoryLoad: DWORD;
    ullTotalPhys: UInt64;
    ullAvailPhys: UInt64;
    ullTotalPageFile: UInt64;
    ullAvailPageFile: UInt64;
    ullTotalVirtual: UInt64;
    ullAvailVirtual: UInt64;
    ullAvailExtendedVirtual: UInt64;
  end;

function GlobalMemoryStatusEx(var lpBuffer : TMemoryStatusEx): BOOL; stdcall; external kernel32 name 'GlobalMemoryStatusEx';