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

[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;