IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

işlemcim MMX
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       @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MX 

      mov      eax,$01

      test     edx,$800000

      jz       @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MX 

      mov byte ptr[Result],1

 

  @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]MX: 

      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;