InstallShield使用杂记

  今天用InstallShield作了一个安装程序。
  以前在工作中也用InstallShield做过一些安装程序，但是没有怎么深入的研究过，感觉功能还是比较强的。今天由于一些特殊的问题，需要使用InstallShield提供的Script实现。
  总结出以下几个用法：

1.添加CheckBox选择窗口
   #define    svAutoLogon "将系统设置为自动登录"
   #define    svShell "修改系统SHELL为本程序"
   #define    svScreeSave "关闭屏幕保护,修改电源管理模式"
   #define    svMedia "安装通用媒体支持包"
   #define    smCustom "CustomMedia"
    smMedia=MEDIA;
    MEDIA= smCustom;  
    ComponentAddItem(MEDIA,svAutoLogon,0,TRUE);
    ComponentAddItem(MEDIA,svShell,0,FALSE);
    ComponentAddItem(MEDIA,svMedia,0,TRUE);
    ComponentAddItem(MEDIA,svScreeSave,0,TRUE);
      
    nResult = SdAskOptions("在系统安装完成后,您还可以进行以下设置:",
    "请选择：","","","",NONEXCLUSIVE);  
    MEDIA=smMedia;      
    可以使用nResult = ComponentIsItemSelected (smCustom, svAutoLogon);来判断指定的项是否被选择

    使用过程中我发现SdAskOptions默认只支持4个选项，但帮助上说可以通过自定义窗口资源的方式扩充，我试了一下，没有成功，也没有深入的研究。至少对我来说，4个选项已经够了。哎，我还是这么懒！

2.访问注册表

       访问注册表可以通过两种方式，最简单的当然是直接通过Resources页上的Register Sets了，又直观，又方便，还可以设置是否在反安装时卸载。
    另外的方法也就是通过Script，优点是灵活，使用也比较方便
      nRootKey = HKEY_LOCAL_MACHINE;
      if (RegDBSetDefaultRoot (nRootKey) = 0) then        
        //设置自登录
        RegDBSetKeyValueEx("SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon","DefaultUserName",REGDB_STRING,GUSER,-1);
        RegDBSetKeyValueEx("SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon","AutoAdminLogon",REGDB_STRING,"1",-1);
        RegDBSetKeyValueEx("SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon","DefaultPassword",REGDB_STRING,GPWD,-1);
      
      endif;     
    上面的代码就实现了一个往注册表中添加信息的功能。

3.设置环境变量

       由于InstallShield没有提供直接修改环境变量的函数，我们只能通过修改注册表项来达到目的了:
       nRootKey = HKEY_LOCAL_MACHINE;
       if (RegDBSetDefaultRoot (nRootKey) = 0) then 
       //添加系统路径      
      
        RegDBGetKeyValueEx("SYSTEM\\ControlSet001\\Control\\Session Manager\\Environment","Path",nvType,szPath,nvSize);  
        if szPath!="" then
        
          PathSet (szPath);
          PathDelete("AdPlay",PARTIAL);
          PathAdd(TARGETDIR+"\\AdPlay","", PARTIAL, BEFORE);
          PathGet(szPath);  
          MessageBox(szPath,INFORMATION);
        else
          szPath=TARGETDIR+"\\AdPlay";
        endif;
       
       
        RegDBSetKeyValueEx("SYSTEM\\ControlSet001\\Control\\Session Manager\\Environment","Path",REGDB_STRING,szPath,-1); 
        endif;   

4.让注册表值不被反安装

  上面的代码看似没有什么问题，但是遗憾的是，当我执行了一次反安装之后，悲剧发生了，我的Path路径中的所有设置都被删除了。原来InstallShield默认会把他自己往注册表中添加的注册值反安装掉。可是现在我们并不需要这个功能啊。根据我的经验，既然通过Resources页上的Register Sets可以修改是否被反安装，那么通过代码应该也可以实现这个功能吧。于是按F1，打开帮助，找了个遍，可就是找不到设置不被反安装的函数。然后又上网搜了一遍，还是没有找到。  苦恼之下，只好再次啃帮助了。看了几遍之后，终于发现在RegDBSetKeyValueEx的帮助中有下面这段话：

When they are created using RegDBCreateKeyEx. While logging is enabled. When they are created automatically by InstallShield during the installation process. When they are created as a result of calling one of the special registry-related functions.

While logging is enabled.那意思是不是说只要把Logging禁止掉就可以实现我要求的功能了呢。可惜，帮助上并没有说明怎么Disable掉Logging。经过一番摸索，终于发现Disable(LOGGING); 可以禁用掉自动安装记录，赶紧在代码前，代码后加上了Disable(LOGGING); 和Enable(LOGGING); 果然，反安装时再也不会把注册表项删除了。当然如果我们需要的话，可以在反安装时添加代码修改注册表项。

本文地址：http://com.8s8s.com/it/it27707.htm