请问如何才能读取CPU或或硬盘的工业序列号(100分)

我想做一个防止别人盗版的东东，听说CPU或硬盘的工业标准序列号是唯一的，那如何读取呢？

该问题本论坛已有解答，本人摘录一部分，仅做参考！
Pentium以后cpu新增CPUID指令(机器码0FH,0A 2H)来识别cpu的序列号.
我原来用的masm5.0好像还不支持,不知道delphi里怎么样?





如果在NT4.0下,可以用注册表:
HKEY_LOCAL_MACHINE/HARDWARE/DESCRIPTION/System/MultifunctionAdapter
下用数字命名的目录的最后一个下面有DiskController子目录,下面的以数字命名
的目录对应硬盘控制器,下面还有DiskPeripheral子目录,这个目录下还有以数字
命名的子目录,对应各磁盘,下面的Identifier项值对应磁盘的SN.每次NT启动时都
重新填写这个值,所以基本可以保证使用安全.我的一个程序就是用这种方法做的.
95下好象也应该有,但具体路径没有考证过.
下面是我的机器上的例子:
HKEY_LOCAL_MACHINE/HARDWARE/DESCRIPTION/System/MultifunctionAdapter/
2/DiskController/0/DiskPeripheral/0
^ ^ ^
这是多功能卡的 这是第一个磁盘 这是第一个磁盘
磁盘控制器编号 控制器

下有键名叫Identifier,类型为字符串,值3d06c81b-00000000-A

以上引自此处lhz的发言





来自：lhz
时间：99-4-1 17:28:00
ID:103795
//haha
我的发言竟然被引用 这可是很难得的哟 值得庆贺

不过呆猫兄大概想要DIR列出来的那个(XXXX-XXXX)Serial No.
这个序列号在磁盘的逻辑0扇区(用INT 25h/26h操作的那个),
具体位置我也不清除,但非常容易找出来的,用DIR+DiskEdit就
可以解决了.

另外请问茶叶蛋兄:EAX中放哪个值才能取得CPU的Serial NO?
Intel公开的EAX的参数没有这个值,只有几个检测型号和指令
兼容性的参数

在已答问题中有原程序一段返回序列号，请查询

对不起，小天笨笨，还有下列傻傻问题要请教：
我看了以前的贴子，在程序中，
procedure TDemoForm.BitBtn1Click(Sender: TObject);var CPUID : TCPUID;
I : Integer; S : TVendor;begin
for I := Low(CPUID) to High(CPUID) do CPUID := -1; CPUID := GetCPUID;
Label1.Caption := 'CPUID[1] = ' + IntToHex(CPUID[1],8);
Label2.Caption := 'CPUID[2] = ' + IntToHex(CPUID[2],8);
Label3.Caption := 'CPUID[3] = ' + IntToHex(CPUID[3],8);
Label4.Caption := 'CPUID[4] = ' + IntToHex(CPUID[4],8); S := GetCPUVendor;
Label5.Caption := S;end;

返回的CPUID[1..4]分别代表的是什么意思？
GetCPUVendor返回的东东又代表什么呢？有多少变化呢？
还有，笨笨小天也不清楚在CPUID及Vendor中载哪一段才能代表唯一的那个CPU呢？

嘿，要进行硬盘加密，你可以直接使用ILOCK32控件，在DELPHI深度历险中有
就是用硬盘序列号加密，比较完整，自己再加上加密控件，就可以了。

那么在ISAPI中如何判断客户端机器的CPU或硬盘的序列号呢？

小天，你的程序不完整。我看过完整的读取cpuid号的程序。对照前后，应该能看
出来的。

小天：不好意思，借题发挥一下：

我也想知道怎样获得硬盘的序列号，不过希望是在win3.1的环境下，用
Delphi 1.0 怎样做？

还是那个问题：如何在服务器端获得客户端的CPU或硬盘序列号呢

怎么没人讨论了呀
:~~~~~~~(

该说的都说了，尚未有别出心裁的办法！

有控件diskinfo,符合小天的要求
在3.1下要取得硬盘系列号我有程序
请留下e-mail

我要3.1下的程序，谢谢！

email地址：lv_jun@263.net

唉，还是没有得到我想知道的答案，不过也谢谢大家了

sherman:有没有源程序？

sherman:有没有源程序呢？

接受答案了.