AcasaAflarea vitezei procesorului
suceava forum :: Discutii libere :: IT&C
Pagina 1 din 1
Aflarea vitezei procesorului
Scris de Max Dum Sept 07, 2008 7:19 pm
Function GetCPUspeed:string;
var a:integer;
begin
asm
PUSHAD
RDTSC
MOV EBX, EAX
PUSH 500
CALL Sleep
RDTSC
SUB EAX, EBX
MOV EDX,0
MOV ECX,500000
DIV ECX
MOV a, EAX
POPAD
end;
result:=inttostr(a);
end;
var a:integer;
begin
asm
PUSHAD
RDTSC
MOV EBX, EAX
PUSH 500
CALL Sleep
RDTSC
SUB EAX, EBX
MOV EDX,0
MOV ECX,500000
DIV ECX
MOV a, EAX
POPAD
end;
result:=inttostr(a);
end;
Max- Moderator
- Numarul mesajelor : 53
Varsta : 37
Localitate : Confidential
Stare de spirit : Rakiu
Data de inscriere : 23/08/2008
suceava forum :: Discutii libere :: IT&C
Pagina 1 din 1
Permisiunile acestui forum:
Nu puteti raspunde la subiectele acestui forum