判断是否安装某软件，没有安装则从软件安装

admin

1. //===========================================================================
   
2. //
   
3. //  File Name:    Setup.rul
   
4. //
   
5. //  Description:  Blank setup main script file
   
6. //
   
7. //  Comments:     Blank setup is an empty setup project. If you want to
   
8. //                  create a new project via. step-by step instructions use the
   
9. //                  Project Assistant.
   
10. //
    
11. //===========================================================================
    
12. 
    
13. // Included header files ----------------------------------------------------
    
14. #include "ifx.h"   
    
15. 
    
16. function OnBegin()   
    
17. STRING strFramework;   
    
18. STRING strVersion;     
    
19. INT iVersion;
    
20. begin      
    
21.     SetTitle(IFX_PRODUCT_NAME + " 安装向导", 0, BACKGROUNDCAPTION);   
    
22.    
    
23.     SdShowMsg("安装程序正在检测系统必备组件。。。",TRUE);  
    
24.     Delay(2);
    
25.     SdShowMsg("",FALSE);  
    
26.                      
    
27.     RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );  
    
28.     strFramework = SRCDIR ^ "dotnetfx35"^"wcu"^"dotNetFramework"^"dotNetFx35setup.exe";//放在Disk1上的可执行文件路径
    
29.     if(RegDBKeyExist("SOFTWARE\\Microsoft\\.NETFramework\\v3.0") < 0)
    
30.     then   
    
31.    
    
32.         VerGetFileVersion(WINDIR^"system32"^"msiexec.exe",strVersion); //取得文件版本号（判断windows installer版本）
    
33.         if(strVersion < "3.1")
    
34.         then   
    
35.             if(LaunchAppAndWait(SUPPORTDIR^"WindowsInstaller-KB893803-v2-x86.exe","",LAAW_OPTION_WAIT)<0)
    
36.             then      
    
37.                 MessageBox("WindowsInstaller error",INFORMATION);   
    
38.                 abort;
    
39.             endif;
    
40.         endif;   
    
41. 
    
42.                
    
43.         if( LaunchAppAndWait(strFramework, "/q:a/l" ,LAAW_OPTION_WAIT) < 0)
    
44.         then
    
45.             SprintfBox(MB_OK,".NET安装",".NET FrameWork安装失败！");   
    
46.             abort;
    
47.         endif;
    
48.     endif;            
    
49.             
    
50.     if(RegDBKeyExist("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\{1F1C2DFC-2D24-3E06-BCB8-725134ADF989}") < 0)//判断机器是否安装了c++2008运行库
    
51.     then   
    
52.         if(LaunchAppAndWait(SUPPORTDIR^"(C++2008)vcredist2008.exe","/s",WAIT)<0)
    
53.         then      
    
54.             MessageBox("(C++2008)vcredist2008 error",INFORMATION);     
    
55.             abort;
    
56.         endif;
    
57.     endif;
    
58.    
    
59.     if(RegDBKeyExist("SOFTWARE\\MapInfo\\MapInfo") < 0)   
    
60.     then   
    
61.         if(LaunchAppAndWait(SUPPORTDIR^"MapX4.5.exe","",WAIT)<0)
    
62.         then      
    
63.             MessageBox("MapX4.5 error",INFORMATION);   
    
64.             abort;
    
65.         endif;
    
66.     endif;
    
67. end;

复制代码

又一个实例

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

复制代码