判断OS是32位还是64位

最新推荐文章于 2017-03-30 14:57:26 发布

原创最新推荐文章于 2017-03-30 14:57:26 发布 · 755 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#os #system #function #application #url #x86

VBA 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种使用Visual Basic编写的简单方法来检测64位计算机系统上的处理器数量。通过调用特定的API函数，该程序能够获取并显示系统上可用处理器的数量。

Private Type SYSTEM_INFO

dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
dwReserved As Long

End Type

Private Declare Function IsWow64Process Lib "kernel32" (ByVal hProcess As Long, ByRef Wow64Process As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Sub GetNativeSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)

Private Sub Form_Load()

'KPD-Team 2001
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim Ret As Long
IsWow64Process GetCurrentProcess, Ret
If Ret = 0 Then
MsgBox "This application is not running on an x86 emulator for a 64-bit computer!"
Else
Dim SysInfo64 As SYSTEM_INFO
GetNativeSystemInfo SysInfo64
MsgBox "Number of processors on your 64-bit system: " + CStr(SysInfo64.dwNumberOrfProcessors)
End If

End Sub