Определение поддержки SSE |
Previous Top Next |
Code: |
{ **** UBPFD *********** by delphibase.endimus.com **** >> Определение поддержки SSE
Зависимости: Types Автор: Gua, gua@ukr.net, ICQ:141585495, Simferopol Copyright: Unknown Дата: 17 июля 2002 г. ***************************************************** }
function CheckSSE: Boolean; var TempCheck: dword; begin TempCheck := 1; asm push ebx mov eax,1 db $0F,$A2 test edx,$2000000 jz @NOSSE mov edx,0 mov TempCheck,edx @NOSSE: pop ebx end; CheckSSE := (TempCheck = 0); end; |
©Drkb::01441