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;

[NooL]

Danke für die Antwort.

Das mache ich sonst auch so:

Zitat:

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

Aber ich möchte bei adCpuUsage nicht nur die Funktion GetCPUCount
nutzen, sondern in meinem Programm für bis zu 32 Kerne auch
die GetCPUUsage-Funktion. Da GetCPUUsage intern in adCpuUsage.pas
auf GetCPUCount aufbaut, ist es notwendig, diese mit zu nutzen.

Sorry, hab dies leider im Titel versäumt mit zu erwähnen.

Also 32bittig gehts in XE2 und 64bittig leider nicht.

Ich vermute mal, dass eine Typenumwandlung in adCpuUsage.pas
dafür verantwortlich ist, da die Unit ja schon recht alt ist.
Die Abschnitte $IFDEF Type und die Win9x-Breiche könnten bestimmt
für XE2 um einiges bereinigt und einige Typ-Umwandlungen
vereinfacht werden.
Leider reicht mein Wissen (noch) nicht aus, um das Problem
in adCpuUsage.pas zu erkennen.
Bin nicht so der gelernte Profi in Sachen Delphi.

Für weitere Hilfe bin ich echt dankbar .