Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Определение поддержки SSE2

01.01.2007
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Определение поддержки SSE2
 
Зависимости: Types
Автор:       Gua, gua@ukr.net, ICQ:141585495, Simferopol
Copyright:   Unknown
Дата:        17 июля 2002 г.
***************************************************** }
 
function CheckSSE2: Boolean;
var
 
TempCheck: dword;
begin
 
TempCheck := 1;
 
asm
  push ebx
  mov eax
,1
  db $0F
,$A2
  test edx
,$4000000
  jz @NOSSE2
  mov edx
,0
  mov
TempCheck,edx
  @NOSSE2
:
  pop ebx
 
end;
  CheckSSE2
:= (TempCheck = 0);
end;