[Kaf_Dağı]

işlemcim MMX

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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;