#DEFINE HKEY_PERFORMANCE_DATA 0x80000004
#DEFINE HKEY_PERFORMANCE_TEXT 0x80000050
#DEFINE HKEY_PERFORMANCE_NLSTEXT 0x80000060
 
DO declare
 
DO EnumCounters WITH "Help", "csCounterHelpStrings"
 
DO EnumCounters WITH "Counter", "csCounterNames"
 
* end of main
 
FUNCTION EnumCounters(cValueName As String, cCursorName As String)
 
    LOCAL cBuffer, nBufSize, hKey
    nBufSize=0
    hKey=HKEY_PERFORMANCE_NLSTEXT
 
    = RegQueryValueEx(m.hKey, cValueName,;
        0, 0, NULL, @nBufSize)
 
    cBuffer = REPLICATE(CHR(0), nBufSize)
 
    = RegQueryValueEx(m.hKey, cValueName,;
        0, 0, @cBuffer, @nBufSize)
 
    nCount = ALINES(arrCounters, cBuffer, CHR(0))
 
    CREATE CURSOR csTempCounter (stringId I, stringValue C(250))
 
    FOR nIndex=1 TO 2 * INT(nCount/2) STEP 2
        INSERT INTO csTempCounter (stringId, stringValue);
        VALUES ( VAL(arrCounters[nIndex]), arrCounters[nIndex+1])
    NEXT
 
    SELECT stringId, MAX(stringValue) As stringValue;
    FROM csTempCounter;
    WHERE NOT EMPTY(stringId);
    GROUP BY 1;
    ORDER BY 1;
    INTO CURSOR (m.cCursorName) NOFILTER READWRITE
 
    BROWSE NORMAL NOWAIT
 
    USE IN csTempCounter
 
* end of main
 
PROCEDURE declare
    DECLARE INTEGER RegQueryValueEx IN advapi32;
        INTEGER hKey, STRING lpValueName,;
        INTEGER lpReserved, INTEGER @lpType,;
        STRING @lpData, INTEGER @lpcbData