VB判断系统是32位还是64位

用VB来判断windows系统是32位还是64位

用VB程序来判断系统是32位还是64位，主要还是靠API来帮忙实现此功能。实现起来也很简单，先在窗体模块里申明API函数：
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function IsWow64Process Lib "kernel32" (ByVal hProc As Long, bWow64Process As Boolean) As Long

然后在窗体中再建立一个判断系统是32位还是64位的函数，返回值是布尔值，如果系统是32位，此函数返回值是Flase 如果是64位，返回值是True，函数代码如下：
Public Function Is64bit() As Boolean
    Dim handle As Long, bolFunc As Boolean
    bolFunc = False
    handle = GetProcAddress(GetModuleHandle("kernel32"), "IsWow64Process")
    If handle > 0 Then
        IsWow64Process GetCurrentProcess(), bolFunc
    End If
    Is64bit = bolFunc
End Function

我们可以在窗体测试一下，在窗体上建立一个标签控件，代码如下：
Private Sub Form_Load()
    Label1.Caption = Is64bit
End Sub

如果你的电脑安装的32位，运行此程序，标签1的文本肯定就是“Flase”，如果是64位，标签1的文本肯定就是“True”

为检验是否正确，你可以用鼠标右击桌面或开始菜单上的“计算机”图标，点属性，看看你的电脑安装的winodws是否跟此程序运行后得到的结果一致。此代码在我的电脑测试通过。

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/167.html