Inno Setup 实现检测判断多个版本是否安装，亦即对软件进行补丁时采用的方式

Share

      根据注册表的位置判断程序的多个版本是否安装，如果有1个版本安装了，则继续执行下面的任务，如果1个版本也没安装，则出现原程序未安装的提示！

1. [code]
   
2. // 检测是否已经安装原版
   
3. function InitializeSetup (): Boolean;
   
4. var
   
5. i: integer;
   
6. begin
   
7. Result := False;
   
8. for i := 5 to 8 do
   
9.    begin
   
10.    if RegValueExists(HKLM, 'SOFTWARE\Systems\Studio\' + IntToStr(i)+ '.0\Installer','Path') then begin
    
11.         Result := True;
    
12.          break;
    
13.     end;
    
14.    end;
    
15. //检查返回值是否为True
    
16. begin
    
17.    if Result = False then begin
    
18.        MsgBox('检测到您的系统内没有安装原版程序，请先安装原版程序再运行此工具。', mbInformation, MB_OK);
    
19.    end;
    
20. end;
    
21. end;
    
22. 
    

复制代码

为了实现对版本号的判断，亦可使用数组或多个 if...else 方式

游客，如果您要查看本帖隐藏内容请回复