怎样得到CPU的ID的问题 ~请高手帮忙 急急~~~~~

Question

我想知道怎么才能取得CPU 的ID    请高手指点  或者告诉我那里有这方面的资料  
  希望各位高手能给详细的方法  

Answer 1

http://expert.csdn.net/Expert/TopicView1.asp?id=2874474
这个帖子里面的地址，下载后解压，看lxcGlobal.pas文件，里面有现成的函数

Answer 2

呵呵
很简单的！别忘了给分哦！呵呵
Private Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128      '  Maintenance string for PSS usage
End Type
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Const VER_PLATFORM_WIN32_NT = 2
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32s = 0
Private Sub Command1_Click()
    Dim len5 As Long, aa As Long
    Dim cmprName As String
    Dim osver As OSVERSIONINFO
    '取得Computer Name
    cmprName = String(255, 0)
    len5 = 256
    aa = GetComputerName(cmprName, len5)
    cmprName = Left(cmprName, InStr(1, cmprName, Chr(0)) - 1)
    Computer = cmprName        '取得CPU端口号
    Set CPUs = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2").ExecQuery("select * from Win32_Processor")
    For Each mycpu In CPUs
      Text1.Text = mycpu.ProcessorId
    Next
End Sub

Answer 3

TO: 
 
 yuan0211(.net)   能提供个原码给我吗？？   谢谢 ~~~~分一定给你的