Delphi判断当前系统版本
来源:网络 作者:佚名 点击:
次时间:2017-07-19 00:36
[摘要] 代码如下 复制代码 function GetWinVer: string; var lpver:_OSVERSIONINFO; begin //###########获取Win系统版本################ lpver.dwOSVersionInfoSize:=SizeOf(_OSVERSIONINFO); //###########必须要分配内存################# if GetVers
| 代码如下 |
复制代码 |
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; |
|
------分隔线----------------------------
