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)));　　//DOWNLOADBY