delphi - 如何在 Delphi 32 中探测计算机是否支持 SSE2？

Question

C++ 的方法是 here (在 Windows 下)。

same answer但在 Linux 下使用 GCC。

摘录我所理解的相关asm代码:

mov     eax, 1
cpuid
mov     features, edx

我在 BASM 不太舒服。

我的问题:

我需要按如下方式包装测试

function IsSSE2: Boolean;
begin
  try
    Result := False;
    //
    // Some BASM code here
    //
  except
    Result := False;
  end;
end;

请帮助我。

Answer 1

您也可以在没有汇编器的情况下做到这一点。但仅适用于 Windows XP 及更高版本。

function IsProcessorFeaturePresent(ProcessorFeature: DWORD): BOOL; stdcall;
  external kernel32 name 'IsProcessorFeaturePresent';

const
  PF_XMMI64_INSTRUCTIONS_AVAILABLE = 10;

function HasSSE2: boolean;
begin
  result := IsProcessorFeaturePresent(PF_XMMI64_INSTRUCTIONS_AVAILABLE);
end;