最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
Delphi判断当前系统版本
时间:2022-06-25 14:40:32 编辑:袖梨 来源:一聚教程网
代码如下 | 复制代码 |
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; |
相关文章
- 《夜族崛起》铁匠西里尔位置一览 05-17
- 《寓言之地》1.02更新内容一览 05-17
- 《辐射4》steam好评率介绍 05-17
- 《夜族崛起》技能强化珠宝掉落说明 05-17
- 《辐射4》主机控制台介绍 05-17
- 《星露谷物语》海草和绿藻获取方法 05-17