inno setup 软件安装包 如何可以自动检测、下载并安装.NET环境

admin

1. [Files]
   
2. 。。。
   
3. Source: "E:\Program Files\XX\dotNetFx40_Client_setup.exe"; DestDir: "{tmp}"; Flags: ignoreversion
   
4. 
   
5. ; dotNetFx40_Client_setup.exe是个.net4.0预安装包，免去了打开网页下载等步骤，提升用户体验，同时体积也小
   
6. ; dotNetFx40_Client_setup.exe不和其他软件文件放在一个目录，它就不会拷贝到安装后的目录中，而是在临时目录中，这样重启机器之后就会被删除掉
   
7. 
   
8. 
   
9. 
   
10. [Code]
    
11. function CheckDotNet4_0():boolean;
    
12. begin
    
13. Result:=not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\.NETFramework\policy\v4.0');
    
14. end;
    
15. 
    
16. function InitializeSetup(): Boolean;
    
17. var Path:string;
    
18. ResultCode: Integer;
    
19. begin
    
20. if CheckDotNet4_0() then
    
21. begin
    
22. if MsgBox('系统检测到您没有安装.Net Framework4.0，是否立刻下载并安装？', mbConfirmation, MB_YESNO) = idYes then
    
23. begin
    
24. ExtractTemporaryFile('dotNetFx40_Client_setup.exe');
    
25. Exec(ExpandConstant('{tmp}\dotNetFx40_Client_setup.exe'), '', '', SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode);
    
26. Result := true;
    
27. end
    
28. else
    
29. begin
    
30. MsgBox('没有安装.Net Framework4.0环境，无法运行【XX】程序，本安装程序即将退出！',mbInformation,MB_OK);
    
31. Result := false;
    
32. end;
    
33. end
    
34. else
    
35. begin
    
36. Result := true;
    
37. end;
    
38. end;

复制代码