如何用pb得知现在用得是win98或win2000操作系统?

[bysheep1002]

如何用pb得知现在用得是win98或win2000操作系统?

[dotnba]

environment env

integer rtn

rtn = GetEnvironment(env)

Environment object

OSFixesRevision Integer The maintenance version of the operating system.
OSMajorRevision Integer The major version of the operating system. For example, this value would be 3 for Windows 3.x or NT 3.51, 4 for 32-bit Windows 95 or NT 4.x, and 5 for Windows 2000.
OSMinorRevision Integer The point release of the operating system. For example, this value would be 10 for Windows 3.10, 5 for SunOS 5.5 (Solaris 5.5), 5 for Macintosh 7.5.

[qqjj7758]

yeah

[juwuyi]

//获得系统版本号
environment env
integer resp
string temp
resp = getenvironment(env)


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

[klbt]

同意楼上，getenvironment(env)可以得到环境对象的各种信息，很有用。

[地狱余烬]

用getenvironment(env) 最好了，不然就得用API函数GetVersion Lib "kernel32" 了

[bysheep1002]

谢谢各位