21.01.2008, 02:14
|
|
Активный
|
|
Регистрация: 27.12.2006
Адрес: Псков
Сообщения: 274
Версия Delphi: Delphi 7
Репутация: 497
|
|
SSE3 & SSE4 & EM64T
Вот модуль FastcodeCPUID.pas
добавляешь в свой проект
CPU.InstructionSupport - набор из TInstructions
Код:
TInstructions =
(isFPU, {80x87}
isTSC, {RDTSC}
isCX8, {CMPXCHG8B}
isSEP, {SYSENTER/SYSEXIT}
isCMOV, {CMOVcc, and if isFPU, FCMOVcc/FCOMI}
isMMX, {MMX}
isFXSR, {FXSAVE/FXRSTOR}
isSSE, {SSE}
isSSE2, {SSE2}
isSSE3, {SSE3*}
isMONITOR, {MONITOR/MWAIT*}
isCX16, {CMPXCHG16B*}
isX64, {AMD AMD64* or Intel EM64T*}
isExMMX, {MMX+ - AMD only}
isEx3DNow, {3DNow!+ - AMD only}
is3DNow); {3DNow! - AMD only}
для проверки напр для EM64T:
Код:
if isX64 in CPU.InstructionSupport then ...
PS: Найдено сдесь:
http://www.google.ru/codesearch?hl=r...eCPUID.pas#l44
скачать:
http://www.google.ru/codesearch/url?...cU_r1lqoG0-B7w
__________________
Велик и могуч наш Object Pascal !
ICQ: 357-591-887
|