文件名称：Delphi获取Windows版本号、描述.rar
文件大小：5KB
文件格式：RAR
更新时间：2022-07-30 03:39:53
Delphi源码-系统相关
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;
【文件预览】：
codesc.net
----获取Windows的版本()
--------Project1.res(876B)
--------Unit1.dfm(2KB)
--------Unit1.pas(2KB)
--------Project1.dpr(188B)
--------Unit1.dcu(5KB)