帮忙看看这段程序？有问题吗?

[zgp0312]

procedure TForm1.Button4Click(Sender: TObject);
var
meminfo:memorystatus;
begin
meminfo.dwlength:=sizeof(memorystatus);
edit1.text:=inttostr(meminfo.dwmemoryload)+'%内存在使用';
edit2.text:='物理内存共有'+inttostr(meminfo.dwtotalphys)+'字节';
edit3.text:='可用的物理内存有'+inttostr(meminfo.dwavailphys)+'字节';
edit4.text:='交换文件共有'+inttostr(meminfo.dwtotalpagefile)+'字节';
{ edit5.text:='可用的交换文件有'+inttostr(meminfo.dwavailpagefile)+'字节';
edit6.text:='虚拟内存共有'+inttostr(meminfo.dwtotalvirtual)+'字节';
edit7.text:='可用的虚拟内存有'+inttostr(meminfo.dwavailvirtual)+'字节';
}
end;

[zgp0312]

为什么加上下面的代码
{ edit5.text:='可用的交换文件有'+inttostr(meminfo.dwavailpagefile)+'字节';
edit6.text:='虚拟内存共有'+inttostr(meminfo.dwtotalvirtual)+'字节';
edit7.text:='可用的虚拟内存有'+inttostr(meminfo.dwavailvirtual)+'字节';
}
就不显示内存信息。

不加的话，显示的信息怎么不对呢?

[lxpbuaa]

在meminfo.dwlength:=sizeof(memorystatus);
后加上：
GlobalMemoryStatus(meminfo);

—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————