wangph 发表于 2008-10-17 16:47:00

用Lisp如何判断Windows系统是32位还是64位？

如题

自贡黄明儒 发表于 2013-9-14 18:16:01

本帖最后由 自贡黄明儒 于 2013-9-16 14:45 编辑

crtrccrt 发表于 2013-9-14 16:24
盼高手绝交解决
用Lisp如何判断Windows系统是32位还是64位

这个highfLybird的帖子中就有
;;;判断系统是否为64位
(defun Is64Bit (/ WMI SVR SYS)
    (setq WMI (vlax-create-object "WbemScripting.SWbemLocator"))
    (setq SVR (VLAX-INVOKE WMI 'ConnectServer))
    (vlax-for n (vlax-invoke SVR 'InstancesOf "Win32_ComputerSystem")
      (setq SYS (vlax-get n 'SystemType))
    )
    (vlax-release-object SVR)
    (vlax-release-object WMI)
    (wcmatch sys "x64*")
)

27012701 发表于 2008-10-18 23:28:00

用WMI好象可以的

狂刀无痕 发表于 2008-10-19 01:25:00

<p>网上查的：</p><p>开始》》运行》》cmd＋回车》》输入"systeminfo"，并回车，找到里面的“系统类型”，32位的显示×86，64位的显示×64。<br/></p>

lilq_78 发表于 2011-12-7 13:22:57

顶下

lilq_78 发表于 2011-12-7 13:23:38

期待高手

north911 发表于 2012-3-1 16:38:10

怎么没人回答，高手们请指点一下

crtrccrt 发表于 2013-9-14 16:24:30

盼高手绝交解决
用Lisp如何判断Windows系统是32位还是64位

wwwliuyu 发表于 2013-9-14 21:16:10

如果不怕别的软件恶意改的话可以用(getenv "PROCESSOR_ARCHITECTURE")来判断操系统位数。

小星旋 发表于 2013-9-15 16:43:09

(getvar 'platform)
页: [1] 2
查看完整版本: 用Lisp如何判断Windows系统是32位还是64位？