查看: 44  |  回复: 0
  VB6 得到当前系统的处理器个数
楼主
发表于 2024年10月22日 17:43

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Option Explicit
Private Type CPU_Type
    a As Long
    b As Long
    c As Long
    d As Long
    Processormask As Long
    Number_of_Processors As Long
    ProcessorType As Long
    e As Long
    f As Long
End Type
Private Declare Sub GetSystemInfo Lib "kernel32" (CPUinfo As CPU_Type)

Private Sub Command1_Click()
    Dim CPU As CPU_Type
    GetSystemInfo CPU
    Debug.Print "CPU类型为:"; CPU.ProcessorType '可能不准显示586
    Debug.Print "CPU个数:"; CPU.Number_of_Processors
End Sub

运行结果:

CPU类型为: 586 
CPU个数: 4


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com