Delphi编程中读取CPU序列号的实现方法

在Delphi编程环境中，读取CPU序列号是一个常见任务，通常用于系统识别或设备管理。由于CPU序列号涉及到底层硬件信息的读取，使用汇编语言是必不可少的。将详细讲解如何通过Delphi结合汇编代码，获取CPU厂商信息和序列号。

判断CPU是否支持CPUID指令

首先，我们需要检测当前CPU是否支持CPUID指令，如下代码所示：

function IsCPUID_Available : Boolean; register;
  asm
    PUSHFD
    POP EAX
    MOV EDX,EAX
    XOR EAX,ID_BIT
    PUSH EAX
    POPFD
    PUSHFD
    POP EAX
    XOR EAX,EDX
    JZ @exit
    MOV AL,True
  @exit:
  end;

此函数通过EFLAGS寄存器中的ID位来判断CPU是否支持CPUID指令。

获取CPU厂商信息

当确认CPUID指令可用时，接下来获取CPU的厂商信息：

function GetCPUVendor : TVendor; assembler; register;
  asm
    PUSH EBX
    PUSH EDI
    MOV EDI,EAX
    MOV EAX,0
    DW $A20F
    MOV EAX,EBX
    XCHG EBX,ECX
    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
  end;

此汇编代码调用CPUID指令（0x00000），获取厂商信息，并将其存储在TVendor数组中。

获取CPU序列号

读取CPU序列号通常需要多次调用CPUID指令，并结合不同输入值。你可以在GetButtonClick事件处理函数中执行这些步骤：

procedure TDemoForm.GetButtonClick(Sender: TObject);
begin
  if IsCPUID_Available then begin
    // 获取并显示CPU厂商信息
    // 获取并显示CPU序列号
  end else begin
    ShowMessage('当前CPU不支持CPUID指令');
  end;
end;

此代码通过按钮触发读取CPU信息，并显示结果。

注意事项

读取CPU序列号可能受到操作系统和硬件的保护机制限制，某些情况下无法直接获取。此外，由于序列号属于敏感信息，开发者应确保符合隐私和安全相关的法规。