Delphi-Help

function TForm1.CheckSSE2: boolean;

var

  Temp: dword;

begin

   Temp := 1;

   asm

      push ebx

      mov eax,1

      db $0F,$A2

      test edx,$4000000

      jz @NOSSE2

      mov edx,0

      mov Temp,edx

      @NOSSE2:

      pop ebx

   end;

   CheckSSE2 := Temp = 0;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

   if CheckSSE2 then

      ShowMessage( 'Поддерживается' )

   else

      ShowMessage( 'Не поддерживается' )

end;