GlobalMemoryStatus()函数问题

[nowdone]

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;
无法编译,请高手指出错误所在.

[beyondtkl]

什么错误？ uses　文件么。。。

[aoyes]

不完整

[tfxg]

最好把错误信息写出来

[Kevin_Lmx]

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