Funkcja detekcji przeglądarki Adobe Reader

Funkcja sprawdza czy w systemie zainstalowana jest przeglądarka plików pdf - Adobre Reader - zwraca true/false

function BOOL DetectAdobeReader(bLog)
string RegPath,sVersion,sVer;
number nSize,nType,nResult,i;
LIST nList;
BOOL bResult;
begin                                     
    bResult = FALSE;
    if (bLog) then WriteLog(0,"* Sprawdzenie zainstalowanego Adobre Reader"); endif;
    RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);         
     RegPath="SOFTWARE\\Adobe\\Acrobat Reader";
     if (RegDBKeyExist(RegPath)=1) then
       
        nList  = ListCreate(STRINGLIST);
        nResult = RegDBQueryKey ( RegPath, REGDB_KEYS, nList );
        if (nResult = 0) then    
           if (ListCount(nList)>0) then  
                if (bLog) then WriteLog(1," - znaleziono wersje:"); endif;
                ListSetIndex(nList,LISTFIRST);   
                for  i=0 to ListCount(nList)-1 
                    ListCurrentString(nList,sVer);
                    if (bLog) then WriteLog(2,sVer); endif;
                    ListSetIndex(nList,LISTNEXT);
                endfor;   
                bResult = TRUE;
           else
                   if (bLog) then WriteLog(1," - pobrana lista kluczy jest pusta"); endif;   
           endif;
        else
            if (bLog) then WriteLog(1," - nie udało się pobrać listy kluczy rejestru"); endif;
        endif;

       
        nType = REGDB_STRING;
        nSize = 255;
           
           ListDestroy(nList);
     else
           if (bLog) then WriteLog(1,"- nieznaleziono"); endif;
     endif;
   
    return bResult;
end;