刚刚注册进入本坛,本来有好多问题的,通过搜索功能大部分都解决了,有一个问题没有解决,希望老师帮忙解决。
用inno制作插件安装的工具,本插件根据注册表位置和设定的组件任务,可以对应的安装到原程序的多个版本对应的文件夹中去。
以上问题都解决了,现在想加一个判断:根据注册表的位置判断程序的4个版本是否安装,如果有1个版本安装了,则继续执行下面的任务,如果1个版本也没安装,则出现原程序未安装的提示,现在只会判断1个,不会判断多个,望老师帮忙解决!
//用以下代码检测成功
// 检测是否已经安装原版
function InitializeSetup (): Boolean;
begin
Result := true;
if not RegValueExists(HKLM, 'SOFTWARE\Systems\Studio\5.0\Installer','Path') then
begin
MsgBox('检测到您的系统内没有安装原版程序,请先安装原版程序再运行此工具。', mbInformation, MB_OK);
Result := False;
end;
end;n
//其他版本注册表位置
KLM, 'SOFTWARE\Systems\Studio\6.0\Installer','Path'
KLM, 'SOFTWARE\Systems\Studio\7.0\Installer','Path'
KLM, 'SOFTWARE\Systems\Studio\8.0\Installer','Path'
希望实现的效果:
根据注册表的位置判断程序的4个版本是否安装,如果有1个版本安装了,则继续执行下面的任务,如果1个版本也没安装,则出现原程序未安装的提示,现在只会判断1个,不会判断多个,望老师帮忙解决!