InStallShield 检测 dotnet2.0

admin

1. //---------------------------------------------------------------------------
   
2. // OnBegin
   
3. //
   
4. // The OnBegin event is called directly by the framework after the setup
   
5. // initializes.
   
6. //---------------------------------------------------------------------------
   
7. 
   
8. function OnBegin()   
   
9. string svCurrentDir;
   
10. begin
    
11. // TO DO: you may change default non-UI setting, for example
    
12. //
    
13. // You may also perform your custom initialization steps, check requirements, etc.
    
14. 
    
15. GetCurrentDir(svCurrentDir);
    
16. svCurrentDir =  svCurrentDir+"\\dotnetfx20.exe";//这里的dotnetfx20.exe可到官网上下载
    
17. RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);  //设置默认的注册表键值根节点
    
18. // 判断是否存在.net
    
19. if (RegDBKeyExist ("SOFTWARE\\Microsoft\\NET Framework Setup\\NDP\\v2.0.50727") < 0) then
    
20. //当上面判断了没有安装.net这个软件时，则启动光盘里
    
21. //dotnetfx.exe安装程序来安装。
    
22.      MessageBox ("检测到本机未安装.Net FrameWork 2.0，下一步将会先安装.Net FrameWork 2.0 ", INFORMATION);  
    
23.      if(LaunchAppAndWait (svCurrentDir ,"", LAAW_OPTION_WAIT)<0) then     
    
24.      MessageBox ("找不到安装程序或者安装出错，请双击运行dotnetfx20.exe，手动安装", INFORMATION);
    
25.      return 0;
    
26.      endif;        
    
27. endif;
    
28. //SRCDIR 安装源目录的全路径
    
29. //SRCDISK 安装源目录的盘符   
    
30. 
    
31. end;

复制代码