如何获得cpu 网卡 主板 硬盘系列号(100分)

  • 主题发起人 主题发起人 genglimin
  • 开始时间 开始时间
G

genglimin

Unregistered / Unconfirmed
GUEST, unregistred user!
用来对软件进行加密
不知道哪个能获得准些
查了下资料,好像硬盘不准,因为现在硬盘种类比较多 sata,ide 串口等
不知道谁有这方面经验
 
CPU的序列号准吗,是不是每个CPU有且仅有唯一的序列号
 
加密用哪个的序列号好,就是要有并且是唯一的
 
双核CPU会有两个序列号 取不准
 
知道有CPU2个序列号 全部取出不就行了。[8D]
 
我不知道怎么全取,取一个出来后,这个会变,不稳定
谁有能两个都取出来的代码,或者能稳定的取出来一个的
 
CnHardWareInfo.pas
 
你到以下地址去找找,可能找得到你需要的答案。
http://iinsnian.cnblogs.com/
这个地址里介绍了很多DELPHI的技巧,不知道你的运气好不好。
 
function GetMACAddress(LanaNum: Byte; MACAddress: PMACAddress): Byte;
var
AdapterStatus: PAdapterStatus;
StatNCB: PNCB;
begin
New(StatNCB);
ZeroMemory(StatNCB, SizeOf(TNCB));
StatNCB.ncb_length := SizeOf(TAdapterStatus) + 255 * SizeOf(TNameBuffer);
GetMem(AdapterStatus, StatNCB.ncb_length);
try
with StatNCB^ do
begin
ZeroMemory(MACAddress, SizeOf(TMACAddress));
ncb_buffer := PChar(AdapterStatus);
ncb_callname := '* ' + #0;
ncb_lana_num := Char(LanaNum);
ncb_command := Char(NCBASTAT);
NetBios(StatNCB);
Result := Byte(ncb_cmd_cplt);
if Result = NRC_GOODRET then
MoveMemory(MACAddress, AdapterStatus, SizeOf(TMACAddress));
end;
finally
FreeMem(AdapterStatus);
Dispose(StatNCB);
end;
end;
 
谢谢楼上的
可MAC地址可以在注册表里改
并且网卡容易更换
 
这些BAIDU GOOGLE下就有的...有必要这里问嘛?
 

Similar threads

I
回复
0
查看
844
import
I
D
回复
0
查看
2K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部