Определение поддержки MMXDelphi , ОС и Железо , ПроцессорОпределение поддержки MMX
Автор: Gua { **** 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; Here's the translation of the text into Russian: Функция Delphi, называемая Подпись функции
Функция возвращает логическое значение, указывающее на наличие поддержки MMX. Локальная переменная
Объявляется локальная переменная Ассемблерный код
Ассемблерный код выполняется с помощью ключевого слова
Возвращение результата
Функция возвращает значение Альтернативное решение Помимо этого кода работает, но стоит отметить, что более современный подход заключается в использовании инструкции CPUID, которая предоставляет более детальную информацию о возможностях процессора. Вместо этого ассемблерного кода можно использовать следующий:
Этот код использует инструкцию CPUID для получения информации о процессоре и проверяет, поддерживается ли функция MMX. Инструкция В Delphi можно использовать функцию
Этот подход более прост и предоставляет более детальную информацию о возможностях процессора. Функция CheckMMX определяет поддержку технологии MMX в системе путем выполнения специального инструкции и проверки результата. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |