Pobranie ścieżki do zainstalowanego modułu Java JRE w InstallShield

Prosta funkcja zwracająca ścieżkę do zainstalowanego modułu Java JRE
- funkcja zwraca pusty string jeżeli nie znajdzie zainstalowanego modułu Java JRE.

function STRING GetJavaPath()
STRING szPath,szMsg;
NUMBER nResult;
begin         
 szPath = "";
 if (Is(PATH_EXISTS,PROGRAMFILES ^ "Java" ^ "jre6")) then
  szPath =   PROGRAMFILES ^ "Java" ^ "jre6";
 elseif (Is(PATH_EXISTS,PROGRAMFILES ^ "Java" ^ "jre5")) then
  szPath =   PROGRAMFILES ^ "Java" ^ "jre5";
 elseif (Is(PATH_EXISTS,PROGRAMFILES64 ^ "Java" ^ "jre6")) then
     szPath =   PROGRAMFILES64 ^ "Java" ^ "jre6";
 elseif (Is(PATH_EXISTS,PROGRAMFILES64 ^ "Java" ^ "jre5")) then
     szPath =   PROGRAMFILES64 ^ "Java" ^ "jre5";    
 else                                                           
     Dlg_AskGetJavaPath:
   nResult =  AskPath("Wskaż folder instalacji środowiska Java", PROGRAMFILES ^ "Java\\jre6", szPath);  
   if (nResult = NEXT) then
     if (! (Is(PATH_EXISTS,szPath ^ "bin"))  ) then
       szMsg = "Wskazana ścieżka nie zawiera katalogu bin środowiska java!\Czy chcesz wskazać inny?";
       if AskYesNo(szMsg,YES)=YES then 
         goto Dlg_AskGetJavaPath;
       else 
        szPath = "";
       endif;          
    endif;
  endif;
 endif;      
 return szPath;
end;