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

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

如题

自贡黄明儒 · 发表于 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

网上查的：

开始》》运行》》cmd＋回车》》输入"systeminfo"，并回车，找到里面的“系统类型”，32位的显示×86，64位的显示×64。

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)

账号		自动登录	找回密码
密码			注册

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

浏览过的版块