Detekcja zainstalowanego środowiska Java

Prosta funkcja działająca na rejestrach, porównująca zainstalowaną wersją z podaną w parametrze "sNumber"

function BOOL DetectJava(sNumber, bLog)
string RegPath,sVersion,sVer;
number nSize,nType,nResult;
BOOL bResult;
begin                                                
    bResult = FALSE;
    if (bLog) then WriteLog(0,"* Sprawdzam zainstalowne środowsko Java"); endif;        
    RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);         
    RegPath="SOFTWARE\\JavaSoft\\Java Runtime Environment";
    if (RegDBKeyExist(RegPath)=1) then
        nType = REGDB_STRING;
        nSize = 255;   
        if (RegDBGetKeyValueEx(RegPath,"CurrentVersion",nType,sVersion,nSize)=0) then 
            if (bLog) then WriteLog(1,"- znaleziono środowisko java w wersji "+sVersion); endif;        
            if StrCompare(sVersion,sNumber)>=0 then bResult = TRUE; endif;   
        else
            if (bLog) then WriteLog(1,"- nieznaleziono środowisko java "); endif;                    
        endif;
    else
        if (bLog) then WriteLog(1,"- nieznaleziono środowisko java "); endif;                
    endif;             
   
    return bResult;
end;