Get CPU Usage auf i5 i7 Win7 64 immer 100& oder 0

[MuTzE.Y85]

Zwar schon alt, aber ich habe mit der Unit Probleme.

Habe das Beispiel aus der ReadMe genommen.
Es werden unter CPUCount 5 ausgelesen, was -1 ja 4 ergibt, jedoch werden mir in der Memo nur 2 angezeigt.

Weiß jemand woran das liegt?
Den Code hat Zacherl schon gepostet.

EDIT:
Hab das Problem gefunden. Ich Depp ^^
4 Zeilen müssen natürlich vorher schon exisiteren

[DeddyH]

http://bar.wikipedia.org/wiki/Haindling#Du_Depp

[hathor]

Die Function GetCPUCount zeigt bei mir (WIN 7 - 64Bit, DELPHI 2009) falsche Werte an,
deshalb durch folgende Function ersetzt.
Einen Mittelwert gibt es bei adCpuUsage nicht!

Delphi-Quellcode:

function GetCPUCount: Integer;
var MySystem: TSystemInfo;
begin 
GetSystemInfo(MySystem); 
Result:= MySystem.dwNumberOfProcessors; 
end;