要求获得CPU序列号和硬盘序列号代码 ( 积分: 100 )

leguoguo · 2005-06-13

硬盘序列号需支持IDE和SCSI的硬盘，谢谢

leguoguo · 2005-06-13

硬盘序列号需支持IDE和SCSI的硬盘，谢谢

ak_2005 · 2005-06-13

得到硬盘序列号 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;

ak_2005 · 2005-06-13

怎样得到CPU的序列号unit Main; interface uses  Windows,  Messages,  SysUtils,  Classes,  Graphics,  Controls, Forms,  Dialogs,  ExtCtrls,  StdCtrls,  Buttons; type TDemoForm = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; GetButton: TBitBtn; CloseButton: TBitBtn; Bevel1: TBevel; Label5: TLabel; FLabel: TLabel; MLabel: TLabel; PLabel: TLabel; SLabel: TLabel; PValue: TLabel; FValue: TLabel; MValue: TLabel; SValue: TLabel; procedure GetButtonClick(Sender: TObject); end; var DemoForm: TDemoForm; implementation {$R *.DFM} const ID_BIT = $200000;   // EFLAGS ID bit type TCPUID = array[1..4] of Longint; TVendor = array [0..11] of char; function IsCPUID_Available : Boolean; register; asm PUSHFD       {direct access to flags no possible, only via stack} POP     EAX     {flags to EAX} MOV     EDX,EAX   {save current flags} XOR     EAX,ID_BIT {not ID bit} PUSH    EAX     {onto stack} POPFD        {from stack to flags, with not ID bit} PUSHFD       {back to stack} POP     EAX     {get back to EAX} XOR     EAX,EDX   {check if ID bit affected} JZ      @exit    {no, CPUID not availavle} MOV     AL,True   {Result=True} @exit: end; function GetCPUID : TCPUID; assembler; register; 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; function GetCPUVendor : TVendor; assembler; register; asm PUSH    EBX     {Save affected register} PUSH    EDI MOV     EDI,EAX   {@Result (TVendor)} MOV     EAX,0 DW      $A20F    {CPUID Command} MOV     EAX,EBX XCHG  EBX,ECX     {save ECX result} MOV   ECX,4 @1: STOSB SHR     EAX,8 LOOP    @1 MOV     EAX,EDX MOV   ECX,4 @2: STOSB SHR     EAX,8 LOOP    @2 MOV     EAX,EBX MOV   ECX,4 @3: STOSB SHR     EAX,8 LOOP    @3 POP     EDI     {Restore registers} POP     EBX end; procedure TDemoForm.GetButtonClick(Sender: TObject); var CPUID : TCPUID; I     : Integer; S   : TVendor; begin  for I := Low(CPUID) to High(CPUID)  do CPUID := -1;  if IsCPUID_Available then begin    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);    PValue.Caption := IntToStr(CPUID[1] shr 12 and 3);    FValue.Caption := IntToStr(CPUID[1] shr 8 and $f);    MValue.Caption := IntToStr(CPUID[1] shr 4 and $f);    SValue.Caption := IntToStr(CPUID[1] and $f);    S := GetCPUVendor;    Label5.Caption := 'Vendor: ' + S; end  else begin    Label5.Caption := 'CPUID not available';  end; end; end.

丁满 · 2005-06-13

赶紧SEARCH,到处都是!

wanghaiou · 2005-06-13

//////////////////////////////////////////////////////////////////////////////  //18.取得网卡物理地址MAC   AdapterID 网卡序号，如果只有一块网卡 AdapterID=0，  //   MACID 地址段序号 0-6  0代表全部段   须引用NB30单元  ////////////////////////////////////////////////////////////////////////////// Function NBGetAdapterAddress(AdapterID,MACID:integer) : 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  // Initialize  Result := '';  Try    // Zero control blocl    ZeroMemory(@NCB, SizeOf(NCB));    // Issue enum command    NCB.ncb_command := Chr(NCBENUM);    cRC := NetBios(@NCB);    // Reissue enum command    NCB.ncb_buffer := @LANAENUM;    NCB.ncb_length := SizeOf(LANAENUM);    cRC := NetBios(@NCB);    If Ord(cRC)<>0 Then      exit;    // Reset adapter    ZeroMemory(@NCB, SizeOf(NCB));    NCB.ncb_command := Chr(NCBRESET);    NCB.ncb_lana_num := LANAENUM.lana[AdapterID];    cRC := NetBios(@NCB);    If Ord(cRC)<>0 Then      exit;    // Get adapter address    ZeroMemory(@NCB, SizeOf(NCB));    NCB.ncb_command := Chr(NCBASTAT);    NCB.ncb_lana_num := LANAENUM.lana[AdapterID];    StrPCopy(NCB.ncb_callname, '*');    NCB.ncb_buffer := @ADAPTER;    NCB.ncb_length := SizeOf(ADAPTER);    cRC := NetBios(@NCB);    // Convert it to string    strTemp := '';    if MACID=0 then    begin      For intIdx := 0 To 5 Do      begin        strTemp :=strTemp+InttoHex(Integer(ADAPTER.adapter_address[intIdx]),2);        if intidx<>5 then          strTemp:=strTemp+'-';      end;    end    else    begin      strTemp :=InttoHex(Integer(ADAPTER.adapter_address[MACID-1]),2);    end;    Result := strTemp;  Finally  End; End;

荷塘新月 · 2005-06-13

我有这方面的控件，可以获取IDE、SCSI（无法在win98下获取，死机！）硬盘的序列号，CPU速度（可能无法正确获取笔记本电脑的），网卡地址。 可以有偿提供源码！ 荷塘新月（QQ：57151728，htxy99@yahoo.com） 欢迎大家访问我的网站： www.startor.cn

要求获得CPU序列号和硬盘序列号代码 ( 积分: 100 )

leguoguo

Unregistered / Unconfirmed

leguoguo

Unregistered / Unconfirmed

ak_2005

Unregistered / Unconfirmed

ak_2005

Unregistered / Unconfirmed

丁满

Unregistered / Unconfirmed

wanghaiou

Unregistered / Unconfirmed

荷塘新月

Unregistered / Unconfirmed

Similar threads