如何获得本机安装的WINDOWS 版本 和该机的物理内存？

Question

1、获取windows版本信息 
可以通过Windows API函数GetVersionEx来获得。 
具体程序如下： 
Procedure Tform1.Button1Click(sender:TObject); 
Var 
OSVI:OSVERSIONINFO; 
begin 
OSVI.dwOSversioninfoSize:=Sizeof(OSVERSIONINFO)； 
GetVersionEx(OSVI); 
label1.Caption:=IntToStr(OSVI.dwMinorVersion)+',' 
+IntToStr(OSVI.dwMinorVersion)+',' 
+IntToStr(OSVI.dwBuildNumber)+',' 
+IntToStr(OSVI.dwPlatformId)+',' 
+OSVI.szCSDVersion; 
end; 
 
end. 
 
2、获取CPU信息 
可以通过Windows API函数GetSystemInfo来获得有关信息。 
具体程序如下： 
procedure TForm1.Button1Click(Sender: TObject); 
Var 
SysInfo:SYSTEM_INFO; 
begin 
GetSystemInfo(Sysinfo); 
Edit1.Text:='系统中有'+IntToStr(Sysinfo.dwNumberOfProcessors)+'个CPU' 
+',类型为'+IntToStr(Sysinfo.dwProcessorType);  
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)+'字节'); 
memo1.Lines.Add('总虚拟内存有'+IntToStr(MemInfo.dwTotalVirtual)+'字节'); 
memo1.Lines.Add('未用虚拟内存有'+IntToStr(MemInfo.dwAvailVirtual)+'字节'); 
end; 
 
end. 
 
或用以下代码： 
memo1.Text:=IntToStr(MemInfo.dwMemoryLoad)+'%的内存正在使用'+#13#10 
+'可使用的物理内存有'+IntToStr(MemInfo.dwAvailPhys)+'字节'+#13#10 
+'交换文件总大小为'+IntToStr(MemInfo.dwTotalPageFile)+'字节'+#13#10 
+'尚可交换文件大小为'+IntToStr(MemInfo.dwAvailPageFile)+'字节'+#13#10 
+'总虚拟内存有'+IntToStr(MemInfo.dwTotalVirtual)+'字节'+#13#10 
+'未用虚拟内存有'+IntToStr(MemInfo.dwAvailVirtual)+'字节'; 
来替代memo1.line.add(…)部分。