GlobalMemoryStatus()函数问题

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
memory.dwlength:=sizeof(memory);
GlobalMemoryStatus(memory);
label2.Caption :='内存：物理内存：'
       +IntToStr(memory.dwTotalPhys div (1024*1024))
       +',其中可以用的内存是：'
       +IntToStr(memory.dwAvailPhys div (1024*1024));end;
无法编译,请高手指出错误所在.

Answer 1

什么错误？ uses　文件么

Answer 2

var
  MS: TMemoryStatus;
begin
  GlobalMemoryStatus(MS);
  ShowMessage(IntToStr(MS.dwTotalPhys div (1024 * 1024)));
  ShowMessage(IntToStr(MS.dwAvailPhys div (1024 * 1024)));
end;