Как получить полный объем ОЗУ?

[Xo66um]

Интересует вопрос: можно-ли получить полный объем ОЗУ (более 4 гб)? И каким образом?

Пока получаю объем так:

var
 lpMemoryStatus : TMemoryStatus;
begin
 lpMemoryStatus.dwLength := SizeOf(lpMemoryStatus);
 GlobalMemoryStatus(lpMemoryStatus);
 with lpMemoryStatus do
  begin
   Form1.Label15.Caption := Format('Всего: %0.0f МБ',[dwTotalPhys div 1024 / 1024]);
  end;

Но код не видит больше 4 ГБ ОЗУ (хотя на машине установлено 5 ГБ).
ОС: Windows 7 (x64)

[alexander13]

Читаем msdn

On computers with more than 4 GB of memory, the GlobalMemoryStatus function can return incorrect information, reporting a value of –1 to indicate an overflow. For this reason, applications should use the GlobalMemoryStatusEx function instead.

[Xo66um]

alexander13, ОГРОМНОЕ человеческое спасибо! Плюс в репу