adCpuUsage.GetCPUCount bei XE2 64bit immer 0

[NooL]

Habs selbst gelöst.

Code:

    TPERF_OBJECT_TYPE = record
        TotalByteLength : DWORD;
        DefinitionLength : DWORD;
        HeaderLength : DWORD;
        ObjectNameTitleIndex : DWORD;
        ObjectNameTitle : DWORD;         // bei 64bit DWORD
//        ObjectNameTitle : LPWSTR;      // bei 32bit LPWSTR
        ObjectHelpTitleIndex : DWORD;
        ObjectHelpTitle : DWORD;         // bei 64bit DWORD
//        ObjectHelpTitle : LPWSTR;      // bei 32bit LPWSTR
        DetailLevel : DWORD;
        NumCounters : DWORD;
        DefaultCounter : Longint;
        NumInstances : Longint;
        CodePage : DWORD;
        PerfTime : TInt64;
        PerfFreq : TInt64;
    end;

    PPERF_OBJECT_TYPE = ^TPERF_OBJECT_TYPE;

type
    TPERF_COUNTER_DEFINITION = record
        ByteLength : DWORD;
        CounterNameTitleIndex : DWORD;
        CounterNameTitle : DWORD;       // bei 64bit DWORD
//        CounterNameTitle : LPWSTR;    // bei 32bit LPWSTR
        CounterHelpTitleIndex : DWORD;
        CounterHelpTitle : DWORD;       // bei 64bit DWORD
//        CounterHelpTitle : LPWSTR;    // bei 32bit LPWSTR
        DefaultScale : Longint;
        DetailLevel : DWORD;
        CounterType : DWORD;
        CounterSize : DWORD;
        CounterOffset : DWORD;
    end;

    PPERF_COUNTER_DEFINITION = ^TPERF_COUNTER_DEFINITION;

Oben genannte Änderungen müssen durchgeführt werden, damit es
unter der Zielplattform Win64 funktioniert.
Habe es im Internet in einer WinPerf.h gefunden.

Vielleicht konnte ich auch anderen damit helfen, falls bedarf besteht.

Gruß Nool