求助求助！！多核CPU如何读取所有CPU的系列号？？？ ( 积分: 100 )

多核CPU如何用delphi读取所有CPU的系列号？？大虾帮帮忙撒。。。。。。。

type
TCPUID = array[1..4] of Longint;

function GetCPUID: TCPUID; assembler; register;
asm
PUSH EBX
PUSH EDI
MOV EDI,EAX
MOV EAX,1
DW $A20F
STOSD
MOV EAX,EBX
STOSD
MOV EAX,ECX
STOSD
MOV EAX,EDX
STOSD
POP EDI {Restore registers}
POP EBX
end;
然后封到线程里.
用API函数
SetThreadAffinityMask
指定线程所在的cpu号.就可以获得.
看看行不,

但是注意III以后取消了cpu号(说容易泄密),现在怎么
样不知道,请关注intel的相关声明.

我也想知道。

已经解决啊