今天用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); 果然,反安装时再也不会把注册表项删除了。当然如果我们需要的话,可以在反安装时添加代码修改注册表项。