【文件属性】：
文件名称：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)