Forumunuz.Com - işlemcim MMX mi?

Forumunuz.Com (https://www.forumunuz.com/)

- Webmaster Forum (https://www.forumunuz.com/webmaster-forum/)

- - işlemcim MMX mi? (https://www.forumunuz.com/webmaster-forum/17373-islemcim-mmx-mi.html)

Kaf Dağı

27 Mart 2015 15:11

işlemcim MMX mi?

Kod:

function SupportsMMX: Boolean; 

begin

  Result := False; 

  try

    asm

      push     eax 

      push     ebx 

      push     ecx 

      push     edx 

      pushfd 

      pop      eax 

      mov      ebx,eax 

      xor      eax,$00200000

      push     eax 

      popfd 

      pushfd 

      pop      eax 

      xor      eax,ebx 

      je       @NoMMX 

      mov      eax,$01

      test     edx,$800000

      jz       @NoMMX 

      mov byte ptr[Result],1

 

  @NoMMX: 

      pop      edx 

      pop      ecx 

      pop      ebx 

      pop      eax 

 end; 

  except; 

  end; 

end; 

 

procedure TForm1.Button1Click(Sender: TObject); 

begin

  if SupportsMMX then ShowMessage('Computer supports MMX'); 

end;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 09:41.