GlobalMemoryStatus()函数问题

nowdone 2004-11-10 11:35:41
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;
无法编译,请高手指出错误所在.
...全文
82 4 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Kevin_Lmx 2004-12-15
  • 打赏
  • 举报
回复
var
MS: TMemoryStatus;
begin
GlobalMemoryStatus(MS);
ShowMessage(IntToStr(MS.dwTotalPhys div (1024 * 1024)));
ShowMessage(IntToStr(MS.dwAvailPhys div (1024 * 1024)));
end;
tfxg 2004-12-15
  • 打赏
  • 举报
回复
最好把错误信息写出来
aoyes 2004-12-14
  • 打赏
  • 举报
回复
不完整
beyondtkl 2004-11-10
  • 打赏
  • 举报
回复
什么错误? uses 文件么。。。
发帖
Windows SDK/API

1177

社区成员

Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
帖子事件
创建了帖子
2004-11-10 11:35
社区公告
暂无公告