如何在Delphi中生成唯一的机器序列号？

Question

我有问题如何在Delphi中生成唯一的机器序列号？我尝试使用主板或处理器的ID来做到这一点,但遗憾的是它不幸得到了支持.分区序列号等脱落,因为它在格式化后会发生变化.我正在寻找格式化后没有改变的东西.有谁有任何想法？

Answer 1

在JCL库中,有几个函数对这个主题非常有用:

function CPUID: TCpuInfo;
function GetMacAddresses(const Machine: string; const Addresses: TStrings): Integer;
function GetVolumeSerialNumber(const Drive: string): string;
function GetBIOSName: string;

Answer 2

我在 DOS 时代也遇到过类似的问题。我发现安装的硬件的ROM即。显卡、磁盘控制器串行端口等可以直接访问，因为它们是内存映射的。这意味着我能够创建已安装硬件的列表，并使用它生成一个“序列号”，该序列号唯一标识每台计算机（直到硬件设置发生更改）。我确信类似的事情今天也有可能发生。

如果您想使用这种方法，请查看http://duartes.org/gustavo/blog/post/motherboard-chipsets-memory-map 。

问候

• 坦率