installshield学习笔记1.docx

1、installshield学习笔记1安装前设置界面公司标识在OnBegin函数中，添加如下脚本：SetTitle(IFX_PRODUCT_NAME + -Infomedia, 0, BACKGROUNDCAPTION);安装中安装RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE); if(RegDBKeyExist(SOFTWAREMicrosoft.NETFrameworkpolicy)0)then if(AskYesNo(尚未安装 !n是否安装,YES)then if(LaunchAppAndWait(SUPPORTDIR, /norestart,WAIT)0)

2、then SprintfBox(MB_OK,.NET安装,安装框架发生意外！); else InstallNet=TRUE; endif; else InstallNet=FALSE; endif; else endif;注：InstallNet在开始定义BOOL类型修改OnFirstUIAfter中的脚本以判断是否重启。vbs控制IIS直接使用 IIS自带的脚本来做的.基本上IIS的所有操作都可以用这个脚本完成.目录在C:inetpubAdminScripts 管理安装服务器角色参数名称：修改IIS中ISAPI和CGI限制%windir%system32inetsrv set config

3、/section:isapiCgiRestriction /path=C:WindowsFramework.allowed:True控制文本框自定义界面，如果控制文本框此时，当选择文本框时，便可取消其它选项的状态。多语言安装不同语言的安装文件放到不同的Components里，然后设置相应的安装语言条件即可获取安装环境语言获取Version信息读取ProductVersion PropertyInstallshield获取安装包版本的系统变量为IFX_PRODUCT_VERSION打开对话框的时候按某个路径打开打开某一个路径的文件夹用这个函数 ShowProgramFolder ( szFold

4、er, nCommand );判断服务状态ServiceGetServiceStateInstallshield环境变量的追加与删除= 环境变量的追加与删除 = 环境变量的添加或追加 =* 问题：如何能在安装包中添加环境变量，而不用用户手动在我的电脑/属性/高级/环境变量中设置，特别是，如何能判断已有的环境变量，如Path，在不改变已有的环境变量的内容的基础上，进行追加呢？* 解决方案：添加环境变量时，可以通过注册表中相应位置写键值的方式完成：HKEY_LOCAL_MACHINESYSTEMControlSet001ControlSession ManagerEnvironment.首先判断P

5、ath是否存在，如果不存在，创建，如果存在，已有的内容进行追加。追加的方法参考如下代码：function AddPath() NUMBER nResult,nType,nSize,nvSize,nvType;STRING strResult,szkey,szNumName,szNumValue,nRootKey,szPath,szPath2; STRING TITLE, szFormat; begin RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE); szkey=SYSTEMControlSet001ControlSession ManagerEnvironme

6、nt;, SEVERE);return FALSE;endif;endif; , SEVERE); abort;endif; PathGet(szPath);Disable(LOGGING);if (RegDBSetKeyValueEx(szkey,Path,REGDB_STRING,szPath,-1) 0) thenMessageBox (RegDBSetKeyValueEx failed., SEVERE);return FALSE;endif; Enable(LOGGING);elseszPath=TARGETDIRscratchbin;Disable(LOGGING);if (Reg

7、DBSetKeyValueEx(szkey,Path,REGDB_STRING,szPath,-1) =0 thenStrSub(szmsg1,szfilename,0,nresult + 4);StrSub(szmsg2,szfilename,nresult + 4,200);LongPathToQuote(szmsg1, FALSE );LongPathToQuote(szmsg2, FALSE );OnResumeUIAfter中完成新版本的安装，脚本如下：Usually this happens by specifying a propertyIn the handler, insta

8、llation usually displays UI that willThe DLLif UseDLL(WINSYSDIR PSAPI_FILE) 0 thenMessageBox(ERROR: Could not load + WINSYSDIR PSAPI_FILE +., SEVERE);return FALSE;endif;pvProcessIDs = ArrayToPointer(nvProcessIDs);EnumProcesses(pvProcessIDs, 512, nvBytesReturned);Each process IDnvProcesses = nvBytesR

9、eturned / PROCESSID_LENGTH;for nvIndex = 1 to nvProcessesnvProcessHandle = OpenProcess(PROCESS_QUERY_INFORMATION |PROCESS_VM_READ, 0, nvProcessIDs(nvIndex);if nvProcessHandle != 0 thenif EnumProcessModules(nvProcessHandle, nvModuleHandle,PROCESSID_LENGTH, nvBytesRequired) != 0 thenif GetModuleFileNa

10、meExA(nvProcessHandle, nvModuleHandle,svModuleName, SizeOf(svModuleName) != 0 thenif nvProcessIDs(nvIndex) = nvFindProcessId thenszFindModName = svModuleName;bvRunning = TRUE;goto ProcessRunningEnd;endif;ParsePath(svFileName, svModuleName, FILENAME_ONLY);if StrCompare(svFileName, szAppName) = 0 then

11、bvRunning = TRUE;goto ProcessRunningEnd;endif;endif;endif;endif;endfor;ProcessRunningEnd:if UnUseDLL(PSAPI_FILE) Internet Information Services”，直观的点击右键创建新的虚似目录。问题又出现了，当本机没有安装IIS的时候， 安装包显示一个错误信息直接就退出了，帮主说要先检测本机有没有I IS，没有的话要跳出对话框让用户选择是继续安装还是退出安装。被逼无奈，只能到处找资料把问题解决。找到检测本机是否安装IIS的脚本，如下：prototype CheckIIS

12、();/监测系统是否安装了IIS function CheckIIS() NUMBER nvType, nvSize; STRING svvalue; begin RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE ); if (RegDBKeyExist (SystemCurrentControlSetServicesIISADMIN ) = 1) then return (1); else return (0); endif; end; 接下来就是要寻找如何用InstallScript创建虚似目录了，还是上次推荐的地方，有两篇配置IIS的文章又帮了我一个忙：

13、InstallShield: xzIISConfig 用于配置 IIS 的 InstallScript 脚本 InstallShield: 更新了 xzIISConfig 配置脚本和 xzSQLDeploy Tools 在二帮主的帮助下写出了创建虚似目录的脚本，如下： set objIIS_Root = CoGetObject(, ); if (IsObject(objIIS_Root) then try set objVirtDir = (IISWebVirtualDir,VIRTUALDIR ); if (IsObject(objVirtDir) then = VIRTUALDIRPATH; = TRUE; = TRUE; = TRUE; (); (TRUE); (); endif; catch set objVirtDir = CoGetObject(+VIRTUALDIR,); if(IsObject(objVirtDir) then MessageBox(存在同名虚似目录,WARN