Delphi7中插入汇编[Assembly]獲取CPUID

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TCPUID=array[1..4] of Longint;
  TVendor=array [0..11] of char;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


const
  ID_BIT = $200000;  //CPU ID 專用變量  EFLAGS ID bit


var
  Form1: TForm1;

FUNCTION IsCPUID_Available : BOOLEAN; register;
FUNCTION GetCPUID : TCPUID; assembler; register;
FUNCTION GetCPUVendor : TVendor; assembler; register;

                                                     
implementation

{$R *.dfm}

// CPU ID ==================================================
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 TForm1.Button1Click(Sender: TObject);
var cpuid:TCPUID; i:integer;
begin
  if IsCPUID_Available then begin
    edit1.text:='';
    cpuid:=GetCPUID;
    //CPUIDStr:=GetCPUVendor+'_';
    for i:=1 to 4 do edit1.text:=edit1.text+IntToHex(CPUID[i],4);
  end else edit1.text:='CPUID_IS_NOT_AVAILABLE';
end;

end.