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

Question

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;

Answer 1

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

Answer 2

在meminfo.dwlength:=sizeof(memorystatus);
后加上：
 GlobalMemoryStatus(meminfo);—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————