如果判断当前系统为XP还是为WIN7
如果判断当前系统为XP还是为WIN7用OS()只能返回window 6.01
if 不为XP
代码
endif
[ 本帖最后由 yx988 于 2015-8-26 22:39 编辑 ]
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
AGETFILEVERSION(aFile, "Kernel32.dll") DISPLAY MEMORY LIKE aFile