Delphi-Help

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

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

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


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

function TForm1.CheckSSE: boolean;
var
  Temp: dword;
begin
   Temp := 1;
   asm
      push ebx
      mov eax,1
      db $0F,$A2
      test edx,$2000000
      jz @NOSSE
      mov edx,0
      mov Temp,edx
      @NOSSE:
      pop ebx
   end;
   CheckSSE := Temp = 0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   if CheckSSE then
      ShowMessage( 'Поддерживается' )
   else
      ShowMessage( 'Не поддерживается' )
end;
Прочитано 2896 раз

Авторизация



Счетчики