几个获取Windows系统信息的Delphi程序

领测软件测试网

end; 

end.
 


3、获取内存信息 

可以通过Windows API函数GlobalMemoryStatus来获得内存信息。 

具体程序如下： 

procedure TForm1.Button1Click(Sender: TObject); 
Var 
MemInfo:MEMORYSTATUS; 
begin 
MemInfo.dwLength:=sizeof(MEMORYSTATUS); 
GlobalMemoryStatus(MemInfo); 
memo1.Lines.Add(IntToStr(MemInfo.dwMemoryLoad)+’%的内存正在使用’) ; 
memo1.Lines.Add(’物理内存共有’+IntToStr(MemInfo.dwTotalPhys)+’字节’); 
memo1.Lines.Add(’可使用的物理内存有’+IntToStr(MemInfo.dwAvailPhys)+’字节’); 
memo1.Lines.Add(’交换文件总大小为’+IntToStr(MemInfo.dwTotalPageFile)+’字节’) ; 
memo1.Lines.Add(’尚可交换文件大小为’+IntToStr(MemInfo.dwAvailPageFile)+’字节’); 

文章来源于领测软件测试网 https://www.ltesting.net/