获取硬盘系列号、CPU系列号、网卡系列号：答者尽散分！

[Jute]

有仁者回答我以下问题：
一、获取硬盘系列号。
二、CPU系列号。
三、网卡系列号。

我将给你100分，然后再给。

[jb99334]

网卡的MAC
//加入nb30.pas单元

var
LanaNum: Byte;
MACAddress: PMACAddress;
RetCode: Byte;
begin
LanaNum := StrToInt(ComboBox1.Text);
New(MACAddress);
try
RetCode := GetMACAddress(LanaNum, MACAddress);
if RetCode = NRC_GOODRET then
begin
Edit1.Text := Format('%2.2x-%2.2x-%2.2x-%2.2x-%2.2x-%.2x',
MACAddress[0], MACAddress[1], MACAddress[2], MACAddress[3],
MACAddress[4], MACAddress[5]]);
end else
begin
Beep;
Edit1.Text := 'Error';
ShowMessage('GetMACAddress Error! RetCode = $' +
IntToHex(RetCode, 2));
end;
finally
Dispose(MACAddress);
end;
---------------
function GetCpuId:longint;assembler;register;
var
temp:longint;
begin
asm
PUSH EBX
PUSH EDI
MOV EDI,EAX
MOV EAX,1
DW $A20F
MOV TEMP,EDX
POP EDI
POP EBX
end;
result:=temp;
end;

[smiler007]

在CSDN里搜索一下，不少这样的帖子的

[cctv6012cn]

楼主，结帖吧。结果已经出来乐。

[tengxiang05]

脚印

[Heyongfeng]

同意。

[caiso]

顶一下^_^

[zhoujie99]

路过，学一招！

[vinsonshen]

up

[xieyongxiang]

楼主有福了，哈哈

1、取得硬盘序列号
function tform1.GetHDSerialNumber: LongInt;
{$IFDEF WIN32}
var
pdw : pDWord;
mc, fl : dword;
{$ENDIF}
begin
{$IfDef WIN32}
New(pdw);
GetVolumeInformation('c:\',nil,0,pdw,mc,fl,nil,0);
Result := pdw^;
dispose(pdw);
{$ELSE}
Result := GetWinFlags;
{$ENDIF}
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=inttostr(gethdserialnumber);
end;

2、得到硬盘序列号
var SerialNum : pdword; a, b : dword; Buffer : array [0..255] of char;
begin
if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then Label1.Caption :=

IntToStr(SerialNum^);
end;

[xieyongxiang]

3、获取CPU的。
function GetCPUID: TCPUID; assembler;register;
begin
asm
PUSH EBX {Save affected register}
PUSH EDI
MOV EDI,EAX {@Resukt}
MOV EAX,1
DW $A20F {CPUID Command}
STOSD {CPUID[1]}
MOV EAX,EBX
STOSD {CPUID[2]}
MOV EAX,ECX
STOSD {CPUID[3]}
MOV EAX,EDX
STOSD {CPUID[4]}
POP EDI{Restore registers}
POP EBX
end;
end;

[xieyongxiang]

4、获取网卡序列号

Function GetMacAddress (nIndex:Integer = 1; strFlag:string = ':') : String;
Var
NCB : TNCB; // Netbios control block //NetBios控制块
ADAPTER : TADAPTERSTATUS; // Netbios adapter status//取网卡状态
LANAENUM : TLANAENUM; // Netbios lana
intIdx : Integer; // Temporary work value//临时变量
cRC : Char; // Netbios return code//NetBios返回值
strTemp : String; // Temporary string//临时变量

Begin
Result := '';
try
ZeroMemory(@NCB, SizeOf(NCB));
NCB.ncb_command := Chr(NCBENUM);
cRC := NetBios(@NCB);
NCB.ncb_buffer := @LANAENUM;
NCB.ncb_length := SizeOf(LANAENUM);
cRC := NetBios(@NCB);
If Ord(cRC)<>0 Then
exit;
ZeroMemory(@NCB, SizeOf(NCB));
NCB.ncb_command := Chr(NCBRESET);
NCB.ncb_lana_num := LANAENUM.lana[nIndex];
cRC := NetBios(@NCB);
If Ord(cRC)<>0 Then
exit;
ZeroMemory(@NCB, SizeOf(NCB));
NCB.ncb_command := Chr(NCBASTAT);
NCB.ncb_lana_num := LANAENUM.lana[nIndex];
StrPCopy(NCB.ncb_callname, '*');
NCB.ncb_buffer := @ADAPTER;
NCB.ncb_length := SizeOf(ADAPTER);
cRC := NetBios(@NCB);
strTemp := InttoHex(Integer(ADAPTER.adapter_address[0]),2);
For intIdx := 1 To 5 Do
strTemp := strTemp +strFlag+ InttoHex(Integer(ADAPTER.adapter_address[intIdx]),2);
except
strTemp := '';
end;
Result := strTemp;
End;

[yeeyee]

找个有源码的控件吧，省事，安全。

[delphi1998]

xieyongxiang(闲人)的两种方法获得的硬盘序列号不一样?

[richlife]

学习！

[gstang]

学习。

[lyqili]

请教各位大哥一个问题，我现在在做关于一个IEEE754格式的数据转化为一个十进制的问题。代码如下：procedure TForm1.Button1Click(Sender: TObject);
VAR e,a1,a2,a3:BYTE;
M:integer;
z:extended;
value:extended;
begin
BUF[0]:=$50;
BUF[1]:=$80;
BUF[2]:=$00;
BUF[3]:=$00;
E:=(BUF[0] SHL 1)+(BUF[1] SHR 7)-126;
a1:=BUF[1] AND $FF;
a2:=BUF[2] AND $FF;
a3:=BUF[3] AND $FF;
M:=(a1 shr 4)*1048576+(a1 and $0f)*65536+(a2 shr 4)*4096+(a2 and $0f)*256+(a3 shr 4)*16+(a3 and $0f);
value:=(power(2,E));
z:=(value * m)div $1000000;
showmessage(floattostr(z));
end;
其中E为指数，M为尾数，Z为最后要的数据结果。可是最后输出的结果不正确，不知道是怎么回事，请各位大哥指点一下。

[CSDN0_0]

FAQ里好象就有！

[pengxuan]

哦，来晚一步，那就蹭分吧

[blazeworld]

顶先~`

[peterruan226]

搜索一下,我记得以前在CSDN就有看过