Inno Setup - Setting Java Environment Variable

Question

Estoy usando Inno Setup para hacer un instalador para un proyecto en el que estoy trabajando, y lo necesito para configurar la variable de entorno java, para que cuando ejecuten cmd no obtengan un java no encontrado error, o algo por el estilo.

He encontrado algunas otras publicaciones relacionadas con Inno Setup y las variables de entorno de configuración, pero ¿alguien sabe algo específico de esta instancia?

Answer 1

Suponiendo Java está instalado en su ubicación predeterminada de archivos de programa/Java, algo como esto debería funcionar en su caso:

[Registry] 
; set PATH 
Root: HKCU; Subkey: "Environment"; ValueType:string; ValueName:"PATH"; ValueData:"{olddata};{pf}\Java\bin"; Flags: preservestringtype 
; set JAVA_HOME 
Root: HKCU; Subkey: "Environment"; ValueType:string; ValueName:"JAVA_HOME"; ValueData:"{pf}\Java"; Flags: preservestringtype 

[Setup] 
; Tell Windows Explorer to reload the environment 
ChangesEnvironment=yes 

No estoy seguro de qué variable de entorno que desea establecer - PATH o JAVA_HOME - entonces los agregué a ambos.

No debería ser necesario cambiar la RUTA ya que el instalador de Java tiende a agregarse a la ruta; IIRC copia java.exe y javaw.exe a uno de los directorios del sistema.

Answer 2

Sumando a @ respuesta de Joni, se puede obtener el directorio de instalación de Java desde el registro y el uso de las constantes de secuencia de comandos para establecer la variable de entorno:

(EDIT: gracias a @TLama para la corrección de código)

[Registry] 
Root: HKCU; Subkey: "Environment"; ValueType:string; ValueName:"JAVA_HOME"; ValueData:"{code:GetJava32Path|6}"; Flags: preservestringtype 

[Code] 
const 
    RegKeyJRE = 'SOFTWARE\JavaSoft\Java Runtime Environment\'; 

function GetJava32Path(MinVersion: string): string; 
var 
    I: Integer; 
    Path: string; 
    Versions: TArrayOfString; 
begin 
    Result := ''; 
    if RegGetSubkeyNames(HKLM, RegKeyJRE, Versions) then 
    for I := 0 to GetArrayLength(Versions)-1 do 
     if (Versions[I][2] = '.') and (Versions[I][3] >= MinVersion) and 
     RegQueryStringValue(HKLM32, RegKeyJRE + Versions[I], 'JavaHome', Path) then 
     begin 
     Result := Path; 
     Exit; 
     end; 
end; 

(NB estoy lejos de ser un experto en Pascal-escritura, el código podría ser mucho mejor, aunque ahora se corrigió por @TLama :))