Delphi获取Windows版本号、描述.rar下载

Delphi获取Windows版本号、描述等信息，可获取到主版本号、次版本号、系统描述、系统平台、构建号等，相关代码如下： 　　//设置版本信息结构的大小 　　 GetVersionEx(OSVI); 　　 //获取版本信息 　　 is98orlater:= 　　 //判断是否98或以后版本 　　 (osvi.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS) and 　　 ((osvi.dwMajorVersion>4) or 　　 ((osvi.dwMajorVersion=4) and (osvi.dwMinorVersion>0))); 　　//DOWNLOAD BY HTTP://WWW.CODEFANS.NET 　　 //下面开始显示信息 　　 case OSVI.dwPlatformId of 　　 //根据OSVI.dwPlatformId的数值的不同显示具体的平台描述 　　 VER_PLATFORM_WIN32s: 　　 // Windows 3.1平台 　　 s:='Windows 3.1'; 　　 VER_PLATFORM_WIN32_WINDOWS: 　　 // Windows 95/98平台 　　 if(is98orlater) then 　　 //98 　　 s:='Windows 98' 　　 else 　　 //95 　　 s:='Windows 95'; 　　 VER_PLATFORM_WIN32_NT: 　　 // Windows NT平台 　　 s:='Windows NT/XP'; 　　 end; 　　 Edit1.Text:=s; 　　 Edit2.Text:=IntToStr(OSVI.dwMajorVersion); 　　 Edit3.Text:=IntToStr(OSVI.dwMinorVersion); 　　 case OSVI.dwPlatformId of 　　 //根据平台的不同具体处理OSVI.dwBuildNumber信息 　　 VER_PLATFORM_WIN32_WINDOWS: 　　 // Windows 95/98平台则取OSVI.dwBuildNumber的低位字 　　 Edit4.Text:=IntToStr(LOWORD(OSVI.dwBuildNumber)); 　　 VER_PLATFORM_WIN32_NT: 　　 // Windows NT平台则取所有位的值 　　 Edit4.Text:=IntToStr(OSVI.dwBuildNumber); 　　 else 　　 Edit4.Text:=''; 　　// Windows 3.1平台此值位空 　　 end; 　　 Edit5.Text:=OSVI.szCSDVersion; 　　end;