各位高手：这样格式的CPU系列号用什么代码取出的？？？(10分)

凤仙花 · 2003-09-28

各位高手：这样格式的CPU系列号用什么代码取出的？？？？？？： GenuineIntel-0387F9FF-00000672-0000BF07-357F6DBD 我用delphi取出的怎么和这不一样？比这少了很多内容！

mantousoft · 2003-09-28

unit unit1; interface   uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ExtCtrls, StdCtrls, Buttons; type   TForm1 = class(TForm)     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Label4: TLabel;     BitBtn1: TBitBtn;     Label5: TLabel;     BitBtn2: TBitBtn;     procedure BitBtn1Click(Sender: TObject);     procedure BitBtn2Click(Sender: TObject);   end;   var   Form1: TForm; implementation   {$R *.DFM}   type   TCPUID  = array[1..4] of Longint;   TVendor = array [0..11] of char;   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 TForm1.BitBtn1Click(Sender: TObject); var   CPUID : TCPUID;   I     : Integer;   S     : TVendor; begin   for I := Low(CPUID) to High(CPUID)  do CPUID := -1;   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);   S := GetCPUVendor;   Label5.Caption := S; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin   Close; end; end.

凤仙花 · 2003-09-28

procedure TForm1.Button1Click(Sender: TObject); var   CPUID : TCPUID;   I     : Integer;   S     : TVendor; begin   for I := Low(CPUID) to High(CPUID)  do CPUID := -1;   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);   S := GetCPUVendor;   //Label5.Caption := S;   cpuid_edit.text := S+'-'+IntToHex(CPUID[4],8);   cpuid_edit.text :=cpuid_edit.text+'-'+IntToHex(CPUID[1],8);   cpuid_edit.text :=cpuid_edit.text+'-'+IntToHex(CPUID[2],8);   cpuid_edit.text :=cpuid_edit.text+'-'+IntToHex(CPUID[3],8); end; //以上Delhi调用结果：     GenuineIntel-0383F9FF-000006B4-00000001-00000000 //用VC的外部DLL调用结果： GenuineIntel-0383F9FF-000006B4-0C040882-00000000 //为什么 IntToHex(CPUID[2],8) 的结果和VC的DLL调用结果不一样？前者是00000001，后者是0C040882。

凤仙花 · 2003-09-28

我的是WinXP！

yxjdelphi · 2003-09-28

或许是对它又做了加密

凤仙花 · 2003-09-30

不会吧？原始的硬件信息也作加密？ 上面两个CPU系列号，你是说哪一个正确呢？

fs_money · 2003-11-26

期待中。。

各位高手：这样格式的CPU系列号用什么代码取出的？？？(10分)

凤仙花

Unregistered / Unconfirmed

mantousoft

Unregistered / Unconfirmed

凤仙花

Unregistered / Unconfirmed

凤仙花

Unregistered / Unconfirmed

yxjdelphi

Unregistered / Unconfirmed

凤仙花

Unregistered / Unconfirmed

fs_money

Unregistered / Unconfirmed

Similar threads