烂
烂泥
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormActivate(Sender: TObject);<br>var<br> memoy:TMemoryStatus;<br>begin<br> GlobalMemoryStatus(memoy);<br> label1.Caption:=FormatFloat('##,###,###',trunc(memoy.dwTotalPhys/1024))+' KB';<br> label2.Caption:=FormatFloat('##,###,###',trunc(memoy.dwAvailPhys/1024))+' KB';<br>end;<br>end.<br><br>===<br>大家试一下 为什么dwAvailphys=0