五笔打字通主页
用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://wb98.com/post/167.html