如何在Linux中用Delphi检测Intel CPU？现有方法失效求助

你的IsIntelCPU函数无效的原因是：{$IFDEF CPUINTEL}是编译期条件指令，它检测的是编译程序时使用的Delphi编译器的目标CPU架构，而非运行程序的Linux系统实际CPU。比如你可能在Windows环境交叉编译Linux程序，或者编译器未正确识别运行时的CPU厂商，导致该指令无法反映真实的硬件信息。

以下是三种可行的运行时检测Intel CPU的方法：

方法1：读取/proc/cpuinfo文件 #

Linux系统中/proc/cpuinfo文件包含详细的CPU硬件信息，其中vendor_id字段为GenuineIntel时表示Intel CPU：

function IsIntelCPU: Boolean;
var
  CPUInfoFile: TextFile;
  Line: string;
begin
  Result := False;
  if FileExists('/proc/cpuinfo') then
  begin
    AssignFile(CPUInfoFile, '/proc/cpuinfo');
    try
      Reset(CPUInfoFile);
      while not Eof(CPUInfoFile) do
      begin
        ReadLn(CPUInfoFile, Line);
        // 匹配vendor_id行
        if Pos('vendor_id', Line) = 1 then
        begin
          Result := Pos('GenuineIntel', Line) > 0;
          Break;
        end;
      end;
    finally
      CloseFile(CPUInfoFile);
    end;
  end;
end;

方法2：调用lscpu命令解析输出 #

通过执行lscpu命令并捕获输出，查找Vendor ID:字段的值：

uses
  System.SysUtils, System.Classes, System.Process;

function IsIntelCPU: Boolean;
var
  Process: TProcess;
  Output: TStringList;
  Line: string;
begin
  Result := False;
  Process := TProcess.Create(nil);
  Output := TStringList.Create;
  try
    Process.Executable := '/usr/bin/lscpu';
    Process.Options := [poWaitOnExit, poUsePipes];
    try
      Process.Execute;
      Output.LoadFromStream(Process.Output);
      for Line in Output do
      begin
        if Pos('Vendor ID:', Line) = 1 then
        begin
          Result := Pos('GenuineIntel', Line) > 0;
          Break;
        end;
      end;
    except
      // 处理命令不存在或执行失败的情况
      Result := False;
    end;
  finally
    Output.Free;
    Process.Free;
  end;
end;

方法3：使用CPUID指令直接获取CPU厂商信息 #

这是最底层、最准确的方法，直接通过CPUID指令从CPU硬件读取厂商标识，不依赖系统文件或外部命令，适用于所有x86/x64平台：

type
  TCPUIDRegisters = record
    EAX, EBX, ECX, EDX: Cardinal;
  end;

procedure CPUID(var Regs: TCPUIDRegisters);
asm
  PUSH EBX
  PUSH EDI
  MOV EDI, Regs
  MOV EAX, [EDI].EAX
  MOV ECX, [EDI].ECX
  CPUID
  MOV [EDI].EAX, EAX
  MOV [EDI].EBX, EBX
  MOV [EDI].ECX, ECX
  MOV [EDI].EDX, EDX
  POP EDI
  POP EBX
end;

function IsIntelCPU: Boolean;
var
  Regs: TCPUIDRegisters;
  VendorID: array[0..11] of AnsiChar;
begin
  Result := False;
  // 请求CPU厂商信息（EAX=0）
  Regs.EAX := 0;
  CPUID(Regs);
  // 拼接厂商ID字符串：EBX + EDX + ECX
  PAnsiChar(@VendorID)[0] := AnsiChar(Regs.EBX shr 24);
  PAnsiChar(@VendorID)[1] := AnsiChar((Regs.EBX shr 16) and $FF);
  PAnsiChar(@VendorID)[2] := AnsiChar((Regs.EBX shr 8) and $FF);
  PAnsiChar(@VendorID)[3] := AnsiChar(Regs.EBX and $FF);
  PAnsiChar(@VendorID)[4] := AnsiChar(Regs.EDX shr 24);
  PAnsiChar(@VendorID)[5] := AnsiChar((Regs.EDX shr 16) and $FF);
  PAnsiChar(@VendorID)[6] := AnsiChar((Regs.EDX shr 8) and $FF);
  PAnsiChar(@VendorID)[7] := AnsiChar(Regs.EDX and $FF);
  PAnsiChar(@VendorID)[8] := AnsiChar(Regs.ECX shr 24);
  PAnsiChar(@VendorID)[9] := AnsiChar((Regs.ECX shr 16) and $FF);
  PAnsiChar(@VendorID)[10] := AnsiChar((Regs.ECX shr 8) and $FF);
  PAnsiChar(@VendorID)[11] := AnsiChar(Regs.ECX and $FF);
  VendorID[12] := #0;
  // 对比厂商ID
  Result := CompareText(VendorID, 'GenuineIntel') = 0;
end;

方法对比 #

• /proc/cpuinfo：实现简单，无需额外权限，兼容性好（绝大多数Linux发行版支持），但依赖系统虚拟文件存在。
• lscpu：输出格式规整，易于解析，但需要系统安装util-linux包（通常默认安装），需处理命令执行失败的情况。
• CPUID指令：最准确、最可靠，不依赖系统环境，适用于所有x86/x64平台（包括Linux、Windows），但需要编写汇编代码或内嵌汇编。

内容的提问来源于stack exchange，提问作者Int20h