下面这个函数可以决定CPU是否支持MMX

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;