Inno Setup - Java環境変数を設定する

Question

Inno Setupを使用して、私が取り組んでいるプロジェクトのインストーラを作成していますが、Java環境変数を設定する必要があります。 javaが見つかりませんエラーなどです。

私はInno Setupと環境変数の設定に関連する他の記事をいくつか見つけましたが、このインスタンス固有のものは誰か知っていますか？ - PATHやJAVA_HOMEを

[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 

私はあなたが設定したい環境変数わからない：Javaがデフォルトの場所プログラムファイル/ Javaでインストールされている、このようなものは、あなたのケースで動作するはずと仮定すると、

Answer 1

- 私はそれらを両方追加しました。

Javaインストーラがパスに自身を追加する傾向があるため、PATHを変更する必要はありません。 IIRCはjava.exeとjavaw.exeをシステムディレクトリの1つにコピーします。ジョニの答え@まで、レジストリからのJavaのインストールディレクトリを取得し、環境変数を設定するには、スクリプトの定数を使用することができます追加

Answer 2

：

（EDIT：コード修正のための@TLamaに感謝！）

[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;