Delphi - Desde delphi ver la velocidad de la Cpu

 
Vista:

Desde delphi ver la velocidad de la Cpu

Publicado por JOSE LUIS SOLANO (10 intervenciones) el 16/02/2001 01:50:53
Desde delphi ver la velocidad de la Cpu
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Desde delphi ver la velocidad de la Cpu

Publicado por JACOBO B. S. (83 intervenciones) el 20/02/2001 03:17:06
Bueno, este codigo fue realizado para delphi 3, espero te sirva..

function GetCpuSpeed: Extended;
var t: DWORD; mhi, mlo, nhi, nlo: DWORD; t0, t1, chi, clo, shr32: Comp;
begin
shr32 := 65536;
shr32 := shr32 * 65536;
t := GetTickCount;
while t = GetTickCount do begin end;
asm
DB 0FH
DB 031H
mov mhi,edx
mov mlo,eax
end;
while GetTickCount < (t + 1000) do begin end;
asm
DB 0FH
DB 031H
mov nhi,edx
mov nlo,eax
end;
chi := mhi; if mhi < 0 then chi := chi + shr32;
clo := mlo; if mlo < 0 then clo := clo + shr32;
t0 := chi * shr32 + clo;
chi := nhi; if nhi < 0 then chi := chi + shr32;
clo := nlo; if nlo < 0 then clo := clo + shr32;
t1 := chi * shr32 + clo;
Result := (t1 - t0) / 1E6;
end;

Ojala te sirva, me lo haces saber en el foro..
adios..
Suerte..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar