Déterminer la vitesse du processeur
Cet article explique comment détecter l'MHZ vitesse du CPU actuel.
fonction de GetCpuSpeed: Extended
var
& nbsp & nbsp t: DWORD
& nbsp & nbsp mhi, mlo, insa, nlo: DWORD
& nbsp & nbsp t0, t1, chi, clo, shr32: Comp
begin
& nbsp & nbsp shr32 := 65536
& nbsp & nbsp shr32 := shr32 * 65536
& nbsp & nbsp t := GetTickCount
& nbsp & nbsp tandis que t = GetTickCount faire commencer à la fin
& nbsp & nbsp asm
& ! & ! & ! & nbsp DB 0FH
& ! & ! & ! & nbsp DB 031H
& ! & ! & ! & nbsp mov mhi,edx
& ! & ! & ! & nbsp mov mlo,eax
& nbsp & nbsp fin
& nbsp & nbsp tandis que GetTickCount < (t 1000) do begin fin
& nbsp & nbsp asm
& ! & ! & ! & nbsp DB 0FH
& ! & ! & ! & nbsp DB 031H
& ! & ! & ! & nbsp mov insa,edx
& ! & ! & ! & nbsp mov nlo,eax
& nbsp & nbsp fin
& nbsp & nbsp chi := mhi si mhi < 0 alors chi := chi shr32
& nbsp & nbsp clo := mlo si mlo < 0 alors clo := clo shr32
& nbsp & nbsp t0 := chi * shr32 clo
& nbsp & nbsp chi := nhi si insa < 0 alors chi := chi shr32
& nbsp & nbsp clo := nlo si nlo < 0 alors clo := clo shr32
& nbsp & nbsp t1 := chi * shr32 clo
& nbsp & nbsp Result := (t1 - t0) / 1E6
fin
Determiner la vitesse du processeur
Determiner la vitesse du processeur : Plusieurs milliers de conseils pour vous faciliter la vie.
Cet article explique comment detecter l'MHZ vitesse du CPU actuel.
fonction de GetCpuSpeed: Extended
var
& nbsp & nbsp t: DWORD
& nbsp & nbsp mhi, mlo, insa, nlo: DWORD
& nbsp & nbsp t0, t1, chi, clo, shr32: Comp
begin
& nbsp & nbsp shr32 := 65536
& nbsp & nbsp shr32 := shr32 * 65536
& nbsp & nbsp t := GetTickCount
& nbsp & nbsp tandis que t = GetTickCount faire commencer a la fin
& nbsp & nbsp asm
& ! & ! & ! & nbsp DB 0FH
& ! & ! & ! & nbsp DB 031H
& ! & ! & ! & nbsp mov mhi,edx
& ! & ! & ! & nbsp mov mlo,eax
& nbsp & nbsp fin
& nbsp & nbsp tandis que GetTickCount < (t 1000) do begin fin
& nbsp & nbsp asm
& ! & ! & ! & nbsp DB 0FH
& ! & ! & ! & nbsp DB 031H
& ! & ! & ! & nbsp mov insa,edx
& ! & ! & ! & nbsp mov nlo,eax
& nbsp & nbsp fin
& nbsp & nbsp chi := mhi si mhi < 0 alors chi := chi shr32
& nbsp & nbsp clo := mlo si mlo < 0 alors clo := clo shr32
& nbsp & nbsp t0 := chi * shr32 clo
& nbsp & nbsp chi := nhi si insa < 0 alors chi := chi shr32
& nbsp & nbsp clo := nlo si nlo < 0 alors clo := clo shr32
& nbsp & nbsp t1 := chi * shr32 clo
& nbsp & nbsp Result := (t1 - t0) / 1E6
fin
Déterminer la vitesse du processeur
By commentfaire
Déterminer la vitesse du processeur : Plusieurs milliers de conseils pour vous faciliter la vie.