[san-46]

А так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

type   TMemoryStatusEx = record     dwLength: DWORD;     dwMemoryLoad: DWORD;     ullTotalPhys: Int64;     ullAvailPhys: Int64;     ullTotalPageFile: Int64;     ullAvailPageFile: Int64;     ullTotalVirtual: Int64;     ullAvailVirtual: Int64;     ullAvailExtendedVirtual: Int64;   end;     procedure GlobalMemoryStatusEx(var lpBuffer:TMemoryStatusEx); stdcall;                     external kernel32 name 'GlobalMemoryStatusEx';   var   memStatus: TMemoryStatusEx;   procedure TForm1.Button1Click(Sender: TObject); begin   memStatus.dwLength := SizeOf(TMemoryStatusEx);   GlobalMemoryStatusEx(memStatus);   Label1.Caption := FloatToStr(memStatus.ullTotalPhys); end;

У меня работает.