如何判断当前操作系统是否为98/2000/XP

我是一朵云无悔

我是一朵云无悔

2016-01-29 13:38

如何判断当前操作系统是否为98/2000/XP,如何判断当前操作系统是否为98/2000/XP
方法1.

environment env
integer resp
string temp,ls_version
resp = getenvironment(env)


choose case env.ostype
case aix!
temp = 'AIX'
case hpux!
temp = 'HPUX'
case macintosh!
temp = 'MacIntosh'
case osf1!
temp = 'OSF1'
case sol2!
temp = 'Solaris 2'
case Windows!
temp = 'Windows'
case Windowsnt!
temp = 'Windows NT'
end choose
ls_version = temp + ' '+string(env.osmajorrevision)+'.'+string(env.osminorrevision)+'.'+string(env.osfixesrevision)

messagebox("Windows version",ls_version)

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com)

  每种操作系统都有其版本号,自己在不同的操作系统上运行一下就知道了.然后再转换成自己熟悉的windows名称就可以了

方法2.

Long L1
dec{2} ldc_WinVer
string ls_WinVer
L1 = GetVersion()
ldc_WinVer = MOD(intlow(L1),256) + int(intlow(L1)/256)/100
choose case ldc_WinVer
case 3.10
ls_WinVer = "Windows 3.x"
case 4
ls_WinVer = "Windows NT 4.0"
case 4.10
ls_WinVer = "Windows 98"
case 5
ls_WinVer = "Windows 2000"
case 5.01
ls_WinVer = "Windows XP"
case 5.02
ls_WinVer = "Windows 2003"
end choose
messagebox("Windows version",ls_WinVer)


---------------------------------------------------------------

下面给出一个函数


// Function: gf_getos()

// Description: Get current Os name

// Arguments: value integer

// Returns: string
// 95-98 : Windows
// 2000- : WindowsNT
// Else : ""

// Author:Kilojin Date: 2005.02.14

// Modify History:
//

environment env
integer rtn
rtn = GetEnvironment(env)
IF rtn < 1 THEN RETURN ""
CHOOSE CASE env.OSType
CASE Windows!
// Windows 95 or 98 code
return "Windows"
CASE WindowsNT!
// Windows NT-specific code
return "WindowsNT"
CASE Sol2!
IF env.OSMinorRevision = 5 THEN
RETURN ""
ELSEIF env.OSMinorRevision = 6 THEN
// Solaris 2.6 code
RETURN ""
END IF
CASE ELSE
RETURN ""
END CHOOSE

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com)
展开更多 50%)
分享

猜你喜欢

如何判断当前操作系统是否为98/2000/XP

电脑网络
如何判断当前操作系统是否为98/2000/XP

Win2000/XP:操作系统命令syskey

windows 操作系统
Win2000/XP:操作系统命令syskey

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

android 如何判断当前是否为飞行模式

编程语言 网络编程
android 如何判断当前是否为飞行模式

如何卸载Windows XP操作系统

windows 操作系统
如何卸载Windows XP操作系统

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

为Windows XP操作系统设置强健的密码

windows 操作系统
为Windows XP操作系统设置强健的密码

XP操作系统优化精髓

windows 操作系统
XP操作系统优化精髓

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

控件的拖动和缩放技术全解

控件的拖动和缩放技术全解

php 和 mysql 开发的 8 个技巧

php 和 mysql 开发的 8 个技巧
下拉加载更多内容 ↓