Taux d'occupation du processeur Centrino DuoRésolu

Question

J'utilise la fonction ci-dessous pour calculer le pourcentage d&#8217;occupation du processeur
Su une machine classique, le r&#233;sultat est conforme au taux d&#8217;occupation, mais la fonction retourne une valeur quasi nulle sur une machine &#233;quip&#233;e d&#8217;un processeur Centrino Duo &#8211; Ah les double-c&#339;ur ! 

Existe-il un rem&#232;de ?

function ValeurOccupationProcesseur: double;
{ Cette fonction retourne le taux d'occupation du processeur }
var Info: TSYSTEM_PROCESSOR_PERFORMANCE_INFORMATION;
    Long: Cardinal;
    TickTotal, TickIdle, DiffTotal, DiffIdle: Integer;
begin
  NtQuerySystemInformation($2,@Info,SizeOf(Info),Long);
  TickIdle := Info.IdleTime Div 10000;
  TickTotal := GetTickCount;
  DiffIdle := TickIdle - MemTickIdle;
  DiffTotal := max(TickTotal - MemTickTotal, 1);
  result := 100 - DiffIdle / DiffTotal * 100;
  If result < 0 Then
    result := 0;
  MemTickIdle  := TickIdle;
  MemTickTotal := TickTotal;
end;

avec 

function NtQuerySystemInformation(SystemInfoClass: Integer; Info: Pointer; InfoLength: Cardinal; var ReturnLength: Cardinal): Integer; StdCall; External 'NTDLL.DLL' Name 'NtQuerySystemInformation';

A votre bon coeur

Abadiane

jace1975 · Accepted Answer

salut,

je te conseillerai de tester via pdh.dll (ne marche pas avec W95 et W98). dans la documentation, il est en effet &#233;crit que les stats processeurs supportent le dual core,etc... 

tu trouveras sur le site un exemple d'utilisation de cette dll, mais si moi je l'utilise un peu diff&#233;remment, mais qui devrait te satisfaire.

Abadianet · Answer

J'utilise la fonction ci-dessous pour calculer le pourcentage d&#8217;occupation du processeur
Su une machine classique, le résultat est conforme au taux d&#8217;occupation, mais la fonction retourne une valeur quasi nulle sur une machine équipée d&#8217;un processeur Centrino Duo &#8211; Ah les double-c&#339;ur ! 

Existe-il un remède ?

function ValeurOccupationProcesseur: double;
{ Cette fonction retourne le taux d'occupation du processeur }
var Info: TSYSTEM_PROCESSOR_PERFORMANCE_INFORMATION;
    Long: Cardinal;
    TickTotal, TickIdle, DiffTotal, DiffIdle: Integer;
begin
  NtQuerySystemInformation($2,@Info,SizeOf(Info),Long);
  TickIdle := Info.IdleTime Div 10000;
  TickTotal := GetTickCount;
  DiffIdle := TickIdle - MemTickIdle;
  DiffTotal := max(TickTotal - MemTickTotal, 1);
  result := 100 - DiffIdle / DiffTotal * 100;
  If result < 0 Then
    result := 0;
  MemTickIdle  := TickIdle;
  MemTickTotal := TickTotal;
end;

avec 

function NtQuerySystemInformation(SystemInfoClass: Integer; Info: Pointer; InfoLength: Cardinal; var ReturnLength: Cardinal): Integer; StdCall; External 'NTDLL.DLL' Name 'NtQuerySystemInformation';

A votre bon coeur

Abadiane

Taux d'occupation du processeur Centrino Duo

2 réponses

Votre réponse

Discussions similaires