Delphi通过WMI等方法获取硬件ID源码

几年前在CnPack论坛发贴希望大家一起测试一下的小东西, 后来看大家热情不高, 我也就淡下去了, 最近有人在问, 所以我把这份东西放出来 时间太久了, 连我自己都差点忘记了这份放在备份文件夹里的程序, 其实有三点理由大家没必要重视这份代码 1. 实际意义不大 不管是从服务客户角度(难道不允许客户换电脑吗), 还是从代码效率(我看就WMI稳定些, 但是这东西初始化速度很慢), 我觉得都没太大用处 2. 运行环境变化 Win64位环境下, WMI可能还有用, 但需要调整哪里, 我没有去研究, 当然, 话说公司的加密狗也不支持64位... 3. 没有秘密 里面实际的东西, 有经验的人光看我让大家贴的日志文本也知道是怎么回事 好吧, 这份源码还是贴出来大家看看吧, 我也几年没看了, 就不写详细说明了 GetHardWareData.dpr 通过几种方法获取硬件ID的例子 GetMachineData.dpr 当年我做的一个硬件序列号生成器, 应该是上面例子的结果加密后存成文件 DecodeMacData.dpr 解密上面的文件