Aflarea vitezei procesorului

In jos

Aflarea vitezei procesorului

Mesaj Scris de Max la data de 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;

Max
Moderator
Moderator

Numarul mesajelor : 53
Varsta : 30
Localitate : Confidential
Stare de spirit : Rakiu
Data de inscriere : 23/08/2008

Vezi profilul utilizatorului

Sus In jos

Sus


 
Permisiunile acestui forum:
Nu puteti raspunde la subiectele acestui forum