最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
Delphi判断当前系统版本
时间:2014-04-14 编辑:简简单单 来源:一聚教程网
代码如下 | 复制代码 |
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; |
相关文章
- HTML简单购物数量小程序代码展示 10-31
- html canvas实现弹幕功能 10-31
- HTML中空格表示的意义 10-31
- html area标签解读 10-31
- html使用表单标签实现注册页面代码展示 10-31
- 使用HTML截图并保存为本地图片的代码展示 10-31