1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

const
  ID_BIT = $200000; // EFLAGS ID bit

type
  TCPUID = array[1..4] of Longint;


// ID des Prozessors
function GetCPUID: string;
//IntToPos ist notwendig, da in extrem seltenen Fällen negative CPU-ID's vorkommen
function IntToPos(Value: Integer): integer; overload;
  begin
    if Value < 0 then
      Result := -Value
    else
      Result := Value;
  end;

function IntToPos(Value: Int64): int64; overload;
  begin
    if Value < 0 then
      Result := -Value
    else
      Result := Value;
  end;

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;

begin
  if IsCPUID_Available then
    result := IntToStr(IntToPos(GetCPUID[1])) + IntToStr(IntToPos(GetCPUID[2]))
      + IntToStr(IntToPos(GetCPUID[3])) + IntToStr(IntToPos(GetCPUID[4]))
  else

    result := '00000'; //Dummywert
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Procedure GetProcessorSerialNumber(var Z1,Z2,Z3:Integer); stdcall;
const  CPUID = $A20F;
asm
   MOV EAX,1
DW CPUID
   MOV [Z1],EAX
   MOV EAX,3
DW CPUID
   MOV [Z2],EDX
   MOV [Z3],ECX
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  Unit1 in 'Unit1.pas';

var estr1, estr2, estr3, estr4:  DWord;
    estring: String;

begin
  try
    asm
        // Testen, ob cpuid verfügbar
        pushfd
        pop eax
        mov ebx,eax
        xor eax, 00200000h
        push eax
        popfd
        pushfd
        pop eax
        xor eax, ebx
        jnz @cpuidok
        // Wenn nicht, beenden
        push 0
        call ExitProcess
      @cpuidok:
        mov eax, 80000002h
        cpuid
        mov estr1, eax
        mov estr2, ebx
        mov estr3, ecx
        mov estr3, edx
    end;
      estring := inttohex(estr1, 8) + inttohex(estr2, 8) + 
        inttohex(estr3, 8) + inttohex(estr4, 8);
    asm
        mov eax, 80000003h
        cpuid
        mov estr1, eax
        mov estr2, ebx
        mov estr3, ecx
        mov estr3, edx
    end;
      estring := estring + inttohex(estr1, 8) + 
        inttohex(estr2, 8) + inttohex(estr3, 8) + 
        inttohex(estr4, 8);
    asm
         mov eax, 80000004h
        cpuid
        mov estr1, eax
        mov estr2, ebx
        mov estr3, ecx
        mov estr4, edx
    end;
      estring := estring + inttohex(estr1, 8) + 
        inttohex(estr2, 8) + inttohex(estr3, 8) + 
        inttohex(estr4, 8);
    writeln('CPUID verfuegbar, eingebrannter String (Hex): ' + 
      estring);
    readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

asm
PUSH    EBX       {Save affected register}
PUSH    EDI
MOV     EDI,EAX   {@Resukt} 
MOV     EAX,3
DW      CPUID     {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;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

type
  TPSN = record
    h,
    m,
    l     : Cardinal;
  end;

function PSNAvailable: boolean;
var
  edx_out   : Cardinal;
begin
  asm
    mov   eax, 1
    cpuid
    mov   edx_out, edx
  end;
  // Test auf Bit #18 -> PSN Bit
  Result := (edx_out and $40000) <> 0;
end;

function GetPSN: TPSN; register;
begin
  Result.h := 0;
  Result.m := 0;
  Result.l := 0;
  asm
    PUSH    EBX       {Save affected register}
    PUSH    EDI
    MOV     EDI,EAX   {@Resukt}
    MOV     EAX,1
    DW      $A20F     {CPUID Command}
    STOSD             {CPUID[1]}
    MOV     EAX, 3
    DW      $A20F
    MOV     EAX, EDX
    STOSD
    MOV     EAX,ECX
    STOSD
    POP     EDI       {Restore registers}
    POP     EBX
  end;
end;

function PSNToString(p: TPSN): string;
begin
  Result := IntToStr(p.h) + '-' + IntTostr(p.m) + '-' + IntToStr(p.l);
end;