Odczyt prędkości procesora InstallShield

Funkcja zwraca wartość numeryczną podaną w MHz - pierwszego jądra procesora

function NUMBER GetCPUSpeed( bLog)
STRING svValue;
NUMBER nvType, nvSize, nSpeed;

begin
    RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
    nvSize = -1;
    nvType  = REGDB_STRING;
    RegDBGetKeyValueEx("HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0",
 "~MHz", nvType, svValue, nvSize);
    if (bLog) then WriteLog(1,"- taktowanie procesora: "+svValue+"MHz"); endif;    
    StrToNum(nSpeed,svValue);
    return nSpeed;
end;