adCpuUsage.GetCPUCount bei XE2 64bit immer 0

[Amateurprofi]

Ich mache das so (und das funktioniert bei mir sowohl unter 32 Bit wie auch 64 Bit):

Delphi-Quellcode:

FUNCTION GetCpuCount:integer;
var SysInfo:TSystemInfo;
begin
   GetSystemInfo(SysInfo);
   result:=SysInfo.dwNumberOfProcessors;
end;