Inno Setup 检查用户系统环境安装包

admin

运行安装程序时检查用户系统里面的安装的版本，如果版本低于你安装包里面的，则运行你安装包的的文件，否则跳过。
下面的代码中以 Microsoft Visual C++ 2010 Redistributable 作为例子。
如果文件很大，不便于打包到你的安装程序，你也可以让安装程序直接从网上下载，然后自动安装。下面的代码以 Microsoft .NET Framework 4 作为例子。

1. [Files]
   
2. Source: "download\isxdl.dll"; DestDir: {tmp}; Flags: dontcopy
   
3. Source: "download\chinese.ini"; Flags: dontcopy
   
4. 
   
5. [code]
   
6. function isxdl_Download(hWnd: Integer; URL, Filename: PAnsiChar): Integer;
   
7. external 'isxdl_Download@files:isxdl.dll stdcall';
   
8. 
   
9. function isxdl_IsConnected: Integer;
   
10. external 'isxdl_IsConnected@files:isxdl.dll stdcall';
    
11. 
    
12. function isxdl_SetOption(Option, Value: PAnsiChar): Integer;
    
13. external 'isxdl_SetOption@files:isxdl.dll stdcall';
    
14. 
    
15. function vc2010_installed: Boolean;
    
16. var
    
17.   VersionNum: String;
    
18. begin
    
19.   result := false;
    
20.   if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\VisualStudio\10.0\VC\VCRedist\x86', 'Version', VersionNum) then
    
21.     begin
    
22.       Delete(VersionNum, 1, 1);      
    
23.       if CompareVersion(VersionNum, '10.0.40219.1') >= 0 then       // 检查 VC 2010 版本号是否大于 10.0.40219.1
    
24.         result := true;
    
25.     end;
    
26. end;
    
27. 
    
28. function netframework4_installed: Boolean;
    
29. var
    
30.   iWert: Cardinal;
    
31. begin
    
32.   result := false;
    
33.   if RegQueryDWordValue(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full', 'Install', iWert) then
    
34.     if iWert = 1 then
    
35.       result := true;
    
36. end;
    
37. 
    
38. procedure CurStepChanged(CurStep: TSetupStep);
    
39. var
    
40.   ErrorCode: Integer;
    
41. begin
    
42.   if CurStep = ssPostInstall then
    
43.     begin
    
44.     if not vc2010_installed then
    
45.       begin
    
46.       WizardForm.StatusLabel.Caption := '正在安装 Microsoft Visual C++ 2010 Redistributable，请稍候...';
    
47.       ExtractTemporaryFile('vcredist_x86.exe');
    
48.       Exec(ExpandConstant('{tmp}\vcredist_x86.exe'), '/passive', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode);
    
49.       end;
    
50.     if not netframework4_installed then
    
51.       begin
    
52.       WizardForm.StatusLabel.Caption := '正在检查 Microsoft .NET Framework 运行环境，请稍候...';
    
53.       if MsgBox('警 告%n%n您的系统中尚未安装 Microsoft .NET Framework 4。%n安装程序可以自动下载并安装所需文件。%n您想要自动下载和安装 Microsoft .NET Framework 4 吗？', mbCriticalError, MB_YESNO or MB_DEFBUTTON2) = IDYES then
    
54.         if isxdl_IsConnected = 1 then
    
55.           begin
    
56.           ExtractTemporaryFile('chinese.ini');
    
57.           isxdl_SetOption('language', ExpandConstant('{tmp}\chinese.ini'));  // 语言文件
    
58.           isxdl_SetOption('title', '你的安装程序');
    
59.           isxdl_SetOption('label', '下载');   
    
60.           isxdl_SetOption('description', '下载 Microsoft .NET Framework');
    
61.           if isxdl_Download(0, 'http://download.microsoft.com/download/9/5/A/95A9616B-7A37-4AF6-BC36-D6EA96C8DAAE/dotNetFx40_Full_x86_x64.exe', PAnsiChar(ExpandConstant('{tmp}\dotNetFx40_Full_x86_x64.exe'))) = 1 then
    
62.             Exec(ExpandConstant('{tmp}\dotNetFx40_Full_x86_x64.exe'), '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode);
    
63.           end
    
64.         else
    
65.           MsgBox('您目前没有 Internet 连接，请您以后从微软网站下载。', mbInformation, MB_OK);
    
66.        end;
    
67.     end;
    
68. end;

复制代码