inno-setup – 需要关于Inno安装脚本的帮助 – 检查jre安装问题

> JRE检查发生了2次,即安装开始和安装结束.我希望JRE检查仅在安装开始时发生
>我正在检查下面的Windows注册表项以检查JRE,并且此脚本不适用于所有情况.我的意思是有些时候这是有效的,有时候失败了64位JRE安装.我正在寻找一个逻辑来检查所有方案的注册表(即32位,64位和所有Windows版本)

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "Test"
#define MyAppVersion "1.0"
#define MyAppPublisher "Test"
#define MyAppURL "gmail.com"
#define MyAppExeName "abc.exe"
#define MinJRE "1.6"


[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
;(To generate a new GUID,click Tools | Generate GUID inside the IDE.)
AppId={{200DC169-9647-4295-91B4-B1D1D8482B82}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={userdocs}xsxsxsbvb
DisableDirPage=yes
DefaultGroupName=test
DisableProgramGroupPage=yes
AllowNoIcons=yes
LicenseFile=C:testInstallers_PC_MACCORRECTIONS_TO_INSTALLER_BUGSTemsOfUse.txt
OutputDir=C:testtest
OutputBaseFilename=test
SetupIconFile=C:testInstallers_PC_MACCORRECTIONS_TO_INSTALLER_BUGSIconicon.ico
Compression=lzma
SolidCompression=yes
PrivilegesRequired=lowest


[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; OnlyBelowVersion: 0,6.1

[Dirs]
Name: "{app}Graphics"
Name: "{app}lib"
Name: "{app}Database"
Name: "{app}Grades"
Name: "{app}HelpFiles"
Name: "{app}images"
Name: "{app}Scripts"

[Files]

Source: "C:testInstallers_PC_MACCORRECTIONS_TO_INSTALLER_BUGStest.exe"; DestDir: "{app}"; Flags: ignoreversion;
Source: "C:testInstallers_PC_MACCORRECTIONS_TO_INSTALLER_BUGSGraphics*"; DestDir: "{app}Graphics"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "C:testInstallers_PC_MACCORRECTIONS_TO_INSTALLER_BUGSlib*"; DestDir: "{app}lib"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "C:testInstallers_PC_MACCORRECTIONS_TO_INSTALLER_BUGSDataBase*"; DestDir: "{app}DataBase"; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "C:testInstallers_PC_MACCORRECTIONS_TO_INSTALLER_BUGSGrades*"; DestDir: "{app}Grades"; Flags: ignoreversion recursesubdirs createallsubdirs


[Icons]
Name: "{group}test"; Filename: "{app}{#MyAppExeName}"
Name: "{group}{cm:uninstallProgram,test}"; Filename: "{uninstallexe}"
Name: "{commondesktop}{#MyAppName}"; Filename: "{app}{#MyAppExeName}"; Tasks: desktopicon
Name: "{userappdata}MicrosoftInternet ExplorerQuick Launch{#MyAppName}"; Filename: "{app}{#MyAppExeName}"; Tasks: quicklaunchicon

[Run]
Filename: "{app}{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName,'&','&&')}}";check:InitializeSetup; Flags: nowait postinstall skipifsilent


[Code]

function installJRE(): Boolean;
   var
   Result1 : Boolean;
   ErrorCode: Integer;
   begin
   Result1 := false;

   Result1 := MsgBox('Java is required to run the program you are trying to install. Please click on Yes button given below to close this installer and be directed to a website were you can download and install Java.',mbConfirmation,MB_YESNO) = idYes;
   if Result1 = false then
   begin
   // user can install the Java later also
   Result:=true;
   end else
   begin
   Result:=false;        
   ShellExec('open','http://www.oracle.com/technetwork/java/javase/downloads/jre6downloads-1902815.html','',SW_SHOWNORMAL,ewNoWait,ErrorCode);
  end;
end;


function InitializeSetup(): Boolean;
var 
 jreVersion: String;                            
   begin
   Result := False; 
     if ((RegValueExists(HKEY_LOCAL_MACHINE,'SOFTWAREJavaSoftJava Runtime Environment','CurrentVersion'))) then
     begin      
      RegQueryStringValue(HKLM,'SoftwareJavaSoftJava Runtime Environment','CurrentVersion',jreVersion);
      if CompareStr(jreVersion,'{#MinJRE}') > 0 then 
      begin      
          Result:=true;
       end else
       begin
        if(installJRE) then
         Result:=true;  
      end;      
       end else
        if(installJRE) then
        Result:=true;
       end;
    end.