java - 在 Inno Setup 中查找 JRE 安装路径
问题描述
以下是我的要求:
- 检查是否安装了Java
- 检查它是否安装在自定义目录中
- 如果是,则将目录路径保存在变量中
- 否则检测版本并将标准路径保存在变量中
下面是检测版本并将标准路径保存到变量的代码
我的代码有问题:
- 如果同时安装了 32 位和 64 位,它会检测到这两者。我的目标是仅检测 64 位,以防两者都安装。
if DirExists(ExpandConstant('{pf32}\java\')) then
这是我可以用来检测自定义目录的吗?- 我不认为上面的代码是找到 java 的自定义目录的正确方法。如果用户安装在 Java 以外的其他文件夹中。另一个问题是如果我们卸载 java 它不会删除文件夹 java/JRE。
我正在使用来自 Inno Setup 脚本需要帮助的 @TLama 代码- 检查 jre 安装问题
[Code]
#define MinJRE "1.7.0"
#define WebJRE "http://www.oracle.com/technetwork/java/javase/downloads/jre6downloads-1902815.html"
function IsJREInstalled: Boolean;
var
JREVersion: string;
JREPath:string
begin
{ read JRE version }
Result := RegQueryStringValue(HKLM32, 'Software\JavaSoft\Java Runtime Environment',
'CurrentVersion', JREVersion);
MsgBox('JAVA 32 bit detected.', mbInformation, MB_OK);
JREPath := 'C:\Program Files (x86)\Java'
{ if the previous reading failed and we're on 64-bit Windows, try to read }
{ the JRE version from WOW node }
if not Result and IsWin64 then
Result := RegQueryStringValue(HKLM64, 'Software\JavaSoft\Java Runtime Environment',
'CurrentVersion', JREVersion);
MsgBox('JAVA 64 bit detected.', mbInformation, MB_OK);
JREPath := 'C:\Program Files\Java'
{ if the JRE version was read, check if it's at least the minimum one }
if Result then
Result := CompareStr(JREVersion, '{#MinJRE}') >= 0;
end;
function InitializeSetup: Boolean;
var
ErrorCode: Integer;
begin
Result := True;
{ check if JRE is installed; if not, then... }
if not IsJREInstalled then
begin
{ show a message box and let user to choose if they want to download JRE; }
{ if so, go to its download site and exit setup; continue otherwise }
if MsgBox('Java is required. Do you want to download it now ?',
mbConfirmation, MB_YESNO) = IDYES then
begin
Result := False;
ShellExec('', '{#WebJRE}', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
end;
end;
解决方案
JRE 安装路径存储在注册表中,如下所示:
[HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment]
"CurrentVersion"="1.8"
[HKEY_LOCAL_MACHINE\SOFTWARE\JavaSoft\Java Runtime Environment\1.8]
"JavaHome"="C:\\Program Files\\Java\\jre1.8.0_172"
您可以使用如下代码检索最新版本(具有 64 位首选项)的安装路径:
const
JavaKey = 'SOFTWARE\JavaSoft\Java Runtime Environment';
function GetJavaVersionAndPath(
RootKey: Integer; var JavaVersion: string; var JavaPath: string): Boolean;
var
JREVersion: string;
begin
Result :=
RegQueryStringValue(RootKey, JavaKey, 'CurrentVersion', JavaVersion) and
RegQueryStringValue(RootKey, JavaKey + '\' + JavaVersion, 'JavaHome', JavaPath);
end;
{ ... }
var
JavaVersion: string;
JavaPath: string;
begin
if GetJavaVersionAndPath(HKLM64, JavaVersion, JavaPath) then
begin
Log(Format('Java %s 64-bit found in "%s"', [JavaVersion, JavaPath]));
end
else
if GetJavaVersionAndPath(HKLM32, JavaVersion, JavaPath) then
begin
Log(Format('Java %s 32-bit found in "%s"', [JavaVersion, JavaPath]));
end
else
begin
Log('No Java found');
end;
end;
推荐阅读
- java - 如何使用 JComboBox 制作日历?
- mongodb - 如何使用 mongo-go-driver 模拟光标
- javascript - getUserMedia 不适用于 IOS,如何从网站访问 IOS 上的麦克风?
- arrays - 分配的空间不足,无法复制数组内容
- python - 用另一个元音替换元音
- c - 将小数转换为int?
- client - emqx: 找不到网址
- ruby-on-rails - Rails ActiveRecord 将数据从旧数据库复制到新数据库
- php - 每个页面的Wordpress不同的标题图像
- javascript - 更改 webpack 为导入的图像生成的图像域