vlisp如何判断是否是win10系统?

挚友01

vlisp如何判断是否是win10或是office2013系统?

newer

WMI 搜索论坛

Lisphk

（XD::SYSTEM:WMI-Query）系统WMI通用查询

8 个回复 - 428 次查看

关于WMI介绍见：http://bbs.xdcad.net/thread-709842-1-1.html [hide] 2、获取内存大小： 3、获取操作系统名字 4、获取所有的物理硬盘的序列号 ................. ...

2017-6-9 18:57 - newer - 开源函数库

[C++] 纯文本查看 复制代码

(defun c:tt ()
    (princ
        (strcat "\n操作系统:"
                (car (XD::SYSTEM:WMI-QUERY "Win32_OperatingSystem" "Caption" ""))
        )
    )
    (princ)
)

命令: TT

操作系统:Microsoft Windows 10 企业版

namezg

;获取当前操作系统名称--推荐
;(setq SystemCaption (zg-GetSystemCaption))
;"Microsoft Windows XP Professional"
(defun zg-GetSystemCaption (/ WBEM WMI WCS SystemCaption)
        (vl-load-com)
        (setq WBEM (vlax-create-object "WbemScripting.SWbemLocator"))
        (setq WMI (vlax-invoke WBEM 'ConnectServer))
        (setq WCS (vlax-invoke WMI 'InstancesOF "Win32_OperatingSystem"))
        (vlax-for item WCS
                (setq SystemCaption (vlax-get item 'Caption))
        )
        (vlax-release-object WCS)
        (vlax-release-object WMI)
        (vlax-release-object WBEM)
        SystemCaption
)

/db_自贡黄明儒_

namezg 发表于 2018-8-29 12:44
;获取当前操作系统名称--推荐
;(setq SystemCaption (zg-GetSystemCaption))
;"Microsoft Windows XP Pro ...

好久不见你来，最近活动频繁，是不是工作轻松了？

namezg

;再来一种方法，通过注册表获取


;获取当前系统的名称
;(setq SystemProductName (zg-GetSystemProductName))
;"Microsoft Windows XP"
(defun zg-GetSystemProductName (/ SystemProductName)
        (setq SystemProductName (vl-registry-read "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion" "ProductName"))
)

namezg

/db_自贡黄明儒_ 发表于 2018-8-29 13:18
好久不见你来，最近活动频繁，是不是工作轻松了？

是的，最近有点时间了

挚友01

多谢各位高手们，我是因为在VBA程序中有
On Error Resume Next
                Set Acadapp = GetObject(, "AutoCAD.Application")
                If Acadapp Is Nothing Then
判断CAD是否已打开，win7中判断都正常，win10中就判断失效，不知根本的原因所在。。。
现在已经通过各位高手们知道操作系统是如何判断的了，还想知道各位是否遇到过我同类的问题，是如何解决的?

namezg

On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err <> 0 Then  '也可以用If Err Then
    MsgBox "CAD未运行。"
    Err.Clear
    Set acadApp = CreateObject("AutoCad.Application")
Else
    MsgBox "CAD已运行。"
End If