var lpver:_OSVERSIONINFO;
begin
//###########获取Win系统版本################
lpver.dwOSVersionInfoSize:=SizeOf(_OSVERSIONINFO);
//###########必须要分配内存#################
if GetVersionExA(lpver) then
begin
case lpver.dwPlatformId of
0:
Result:="Windows 32s";
1:begin
case lpver.dwMinorVersion of
0:
Result:="Windows 95";
10:
Result:="Windows 98";
90:
Result:="Windows Me";
end;
end;
2:begin
case lpver.dwMajorVersion of
3:
Result:="WindowsNT 3.51";
4:
Result:="WindowsNT 4.0";
5:begin
case lpver.dwMinorVersion of
0:
Result:="Windows 2000";
1:
Result:="Windows XP";
2:
Result:="Windows 2003";
end;
end;
6:begin
case lpver.dwMinorVersion of
0:
Result:="Windows Vista";
1:
Result:="Windows 7";
2:
Result:="Windows 8";
end;
end;
end;
end;
else
Result:="Not Windows";
end;
end;
end;
http://m.bbyears.com/wangyezhizuo/51663.html
推荐访问: