delphi 查看 cpu 核心数

delphi  查看 cpu 核心数

uses
  System.SysUtils, Windows;

procedure GetCPUCoreCount;
var
  SystemInfo: TSystemInfo;
begin
  // 获取系统信息
  GetSystemInfo(SystemInfo);

  // 输出 CPU 核心数
  Writeln('CPU 核心数: ', SystemInfo.dwNumberOfProcessors);
end;

begin
  try
    GetCPUCoreCount;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.