Delphi-Help

Главная Статьи Процессор Поддерживает ли процессор набор команд SSE2?

Поддерживает ли процессор набор команд SSE2?

Оцените материал
(0 голосов)


Поддерживает ли процессор набор команд SSE2?

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;
Прочитано 4384 раз

Авторизация



Счетчики