【www.bbyears.com--Delphi】
代码如下 function GetWinVer: string;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;