如果判断当前系统为XP还是为WIN7
用OS()只能返回window 6.01
if 不为XP
代码
endif

[ 本帖最后由 yx988 于 2015-8-26 22:39 编辑 ]

ping 一下，看返回值

VFP语句

用OS()函数

不过用VFP内置的OS()函数，祗能判断到Win8，对Win10，结果是错的，当作Win8了。

Win7就是NT6.01呀，XP非64位系统是5.1，64位是5.2。Win10实际上与Win8是同级的，都是NT6，不过对外显示是NT10，用OS()检测仍然是6.02，说明Win10根本上就是Win8的小升级版本。

[ 本帖最后由 TonyDeng 于 2015-8-26 23:18 编辑 ]

Windows 2000、XP、Server 2003，主版本号都是5

Windows 10 预览版初期内核为NT 6.4，从 Build 9888 开始，Windows 10 将系统内核由 NT 6.4 升级为了 NT 10.0。

可以写一个检测系统版本的函数在不同机上（XP或Win7等）看看返回结果。

简单可用WMI的Win32_OperatingSystem类：

oService = GETOBJECT("winmgmts:")
oClasses = oService.InstancesOf("Win32_OperatingSystem")
FOR EACH oClass IN oClasses
    ? "操作系统..." + NVL(oClass.Caption, "<NULL>")
    ? "语种版本..." + NVL(oClass.MUILanguages[0], "<NULL>")
    ? "系统版本..." + NVL(oClass.Version, "<NULL>")
ENDFOR

由于Windows有个“兼容性”属性和用户的使用个性，有时要获取系统的精确版本号就可能要从多方面下手。
可以利用VFP的 AGETFILEVERSION()函数 检测系统的核心文件的版本号, 如 Kernel32.dll 文件。

AGETFILEVERSION(aFile, "Kernel32.dll")
DISPLAY MEMORY LIKE aFile

保存，谢谢。

[ 本帖最后由 aaaaaa 于 2015-8-27 13:53 编辑 ]