Поддерживает ли процессор набор команд SSE?
function TForm1.CheckSSE: boolean;
var
Temp: dword;
begin
Temp := 1;
asm
push ebx
mov eax,1
db $0F,$A2
test edx,$2000000
jz @NOSSE
mov edx,0
mov Temp,edx
@NOSSE:
pop ebx
end;
CheckSSE := Temp = 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckSSE then
ShowMessage( 'Поддерживается' ) else
ShowMessage( 'Не поддерживается' )
end; |