Определение поддержки MMX

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Определение поддержки MMX

Зависимости: Types
Автор:       Gua, gua@ukr.net, ICQ:141585495, Simferopol
Copyright:   Unknown
Дата:        17 июля 2002 г.
***************************************************** }

function
 CheckMMX: Boolean;
var

  TempCheck: dword;
begin

  TempCheck := 1;
  asm

  push ebx
  mov eax,1
  db $0F,$A2
  test edx,$800000
  jz @NOMMX
  mov edx,0
  mov TempCheck,edx
  @NOMMX:
  pop ebx
  end
;
  CheckMMX := (TempCheck = 0);
end
;

Другое по теме:

• Вычисление тактовой частоты процессора
• Извлечь информацию о процессоре
• Как определить наличие сопроцессора