[求助】如何用代码判断系统是32位还是64位 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助】如何用代码判断系统是32位还是64位

共有2180人关注过本帖树形打印复制链接主题：[求助】如何用代码判断系统是32位还是64位

lzzhx

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

[求助】如何用代码判断系统是32位还是64位 发帖心情

Post By：2017/9/5 11:57:00 [只看该作者]

请教老师：如何用代码判断系统是32位还是64位

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/5 12:18:00 [只看该作者]

Dim oConn As New System.Management.ConnectionOptions()
Dim oMs As New System.Management.ManagementScope("\\localhost", oConn)
Dim oQuery As New System.Management.ObjectQuery("select AddressWidth from Win32_Processor")
Dim oSearcher As New System.Management.ManagementObjectSearcher(oMs, oQuery)
Dim oReturnCollection = oSearcher.[Get]()
Dim addressWidth As String = Nothing

For Each oReturn As object In oReturnCollection

addressWidth = oReturn("AddressWidth").ToString()
Next
msgbox(addressWidth)

lzzhx

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

Post By：2017/9/5 12:23:00 [只看该作者]

出现错误

此主题相关图片如下：1.png

lzzhx

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

Post By：2017/9/5 12:26:00 [只看该作者]

批处理中有个语句

if /i "%PROCESSOR_IDENTIFIER"~0,3%" =="X86" goto X32

如何转成能在狐表中运行的代码？

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/5 12:40:00 [只看该作者]

升级到最新版foxtable，或者添加引用dll，system.Management.dll

[此贴子已经被作者于2017/9/5 14:33:31编辑过]

lzzhx

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

Post By：2017/9/5 13:05:00 [只看该作者]

版本是2017-6-12

system.web.dll已经引用，还是同样的错误

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/5 14:35:00 [只看该作者]

哦，要引用这个 system.Management.dll

此主题相关图片如下：qq截图20170905143532.png

lzzhx

小大 8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：995 积分：6712 威望：0 精华：0 注册：2015/1/12 22:12:00

Post By：2017/9/5 16:25:00 [只看该作者]

谢谢老师：我用批处理解决了，代码如下，目前好像是正常的，请老师看看代码有什么问题没有。

Dim batfilenamepath As String = ProjectPath & "mydll\MxDraw52\"

Dim qdq As String = batfilenamepath.SubString(0,batfilenamepath.IndexOf("\")) 'bat文件所在目录的驱动器号

Dim path As String = batfilenamepath.SubString(batfilenamepath.IndexOf("\")+1,batfilenamepath.lastIndexOf("\")-batfilenamepath.IndexOf("\")-1)

Dim dirstr As String = "cd\" & vbcrlf & qdq & vbcrlf & "cd " & path & vbcrlf

Dim p As String = "if /i " & """" & "%PROCESSOR_IDENTIFIER:~0,3%" & """" & " == " & """" & "X86" & """" & " goto X32" & vbcrlf & "MxDrawX52x64.msi" & vbcrlf & "exit" & vbcrlf & ":X32" & vbcrlf & "MxDrawX52.msi" & vbcrlf & "exit"

Dim bat As String = ""

bat &= dirstr

bat &= p '& """"

FileSys.WriteAllText(batfilenamepath & "MxCAD.bat",bat,False,Encoding.Default)

Dim Proc As New Process

Proc.File = batfilenamepath & "MxCAD.bat"

proc.WaitForClose = True

Proc.Start()