installshield学习笔记

1、安装前设置界面公司标识在OnBegin函数中，添加如下脚本：SetTitle(IFX_PRODUCT_NAME + -Infomedia, 0, BACKGROUNDCAPTION);安装中安装.netRegDBSetDefaultRoot(HKEY_LOCAL_MACHINE); if(RegDBKeyExist(SOFTWAREMicrosoft.NETFrameworkpolicyv4.0)0)then if(AskYesNo(尚未安装.net framework4.0!n是否安装？,YES)then if(LaunchAppAndWait(SUPPORTDIRdotNetFx40_Fu

2、ll_x86_x64_en.exe, /norestart,WAIT)0)then SprintfBox(MB_OK,.NET安装,安装.net框架发生意外！); else InstallNet=TRUE; endif; else InstallNet=FALSE; endif; elseendif;注：InstallNet在开始定义BOOL类型修改OnFirstUIAfter中的脚本以判断是否重启。vbs控制IIS直接使用 adsutil.vbs IIS自带的脚本来做的.基本上IIS的所有操作都可以用这个脚本完成.目录在C:inetpubAdminScriptsServerManagerCm

3、d.exe 管理安装服务器角色参数名称：修改IIS中ISAPI和CGI限制%windir%system32inetsrvappcmd.exe set config /section:isapiCgiRestriction /path=C:WindowsMicrosoft.NETFrameworkv4.0.30319aspnet_isapi.dll.allowed:True控制文本框自定义界面，如果控制文本框此时，当选择文本框时，便可取消其它选项的状态。多语言安装不同语言的安装文件放到不同的Components里，然后设置相应的安装语言条件即可获取安装环境语言获取Version信息读取Produ

4、ctVersion PropertyInstallshield获取安装包版本的系统变量为IFX_PRODUCT_VERSION打开对话框的时候按某个路径打开打开某一个路径的文件夹用这个函数 ShowProgramFolder ( szFolder, nCommand );判断服务状态ServiceGetServiceStateInstallshield环境变量的追加与删除= 环境变量的追加与删除 = 环境变量的添加或追加 =* 问题：如何能在安装包中添加环境变量，而不用用户手动在我的电脑/属性/高级/环境变量中设置，特别是，如何能判断已有的环境变量，如Path，在不改变已有的环境变量的内容的基

5、础上，进行追加呢？* 解决方案：添加环境变量时，可以通过注册表中相应位置写键值的方式完成：HKEY_LOCAL_MACHINESYSTEMControlSet001ControlSession ManagerEnvironment.首先判断Path是否存在，如果不存在，创建，如果存在，已有的内容进行追加。追加的方法参考如下代码：function AddPath() NUMBER nResult,nType,nSize,nvSize,nvType;STRING strResult,szkey,szNumName,szNumValue,nRootKey,szPath,szPath2; STRING

6、 TITLE, szFormat; begin RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE); szkey=SYSTEMControlSet001ControlSession ManagerEnvironment;/ has no the key, then create the key if (RegDBKeyExist(szkey) 0)then if (RegDBCreateKeyEx(szkey, ) 0) thenMessageBox (RegDBCreateKeyEx failed., SEVERE);return FALSE;endif;endi

7、f; /添加系统路径 RegDBGetKeyValueEx(szkey,Path,nvType,szPath,nvSize);if szPath!= then PathSet(szPath); if (PathAdd(TARGETDIRscratchbin, , FULL, AFTER) 0) thenMessageBox (Unable to add to path buffer., SEVERE); abort;endif; PathGet(szPath);Disable(LOGGING);if (RegDBSetKeyValueEx(szkey,Path,REGDB_STRING,szP

8、ath,-1) 0) thenMessageBox (RegDBSetKeyValueEx failed., SEVERE);return FALSE;endif; Enable(LOGGING);elseszPath=TARGETDIRscratchbin;/ Set a key name and a value associated with it.Disable(LOGGING);if (RegDBSetKeyValueEx(szkey,Path,REGDB_STRING,szPath,-1) =0 thenStrSub(szmsg1,szfilename,0,nresult + 4);

9、StrSub(szmsg2,szfilename,nresult + 4,200);LongPathToQuote(szmsg1, FALSE );LongPathToQuote(szmsg2, FALSE );/szfilename = + szmsg1 + +szmsg2;endif; if(LaunchAppAndWait(szmsg1, szmsg2, LAAW_OPTION_WAIT_INCL_CHILD | LAAW_OPTION_WAIT) 0 )thenMessageBox(旧版本卸载失败, MB_OK);abort;elseWaitForApplication(LAAW_PR

10、OCESS_INFORMATION.hProcess, LAAW_PROCESS_INFORMATION.dwProcessId, INFINITE, LAAW_OPTION_WAIT_INCL_CHILD | LAAW_OPTION_WAIT);endif;szIcon = DesktopFolder;DeleteFolderIcon(szIcon, AliProbe);szDir = INSTALLDIR + AliProbe V1.1;DeleteDir(szDir, ALLCONTENTS);end;需要注意的地方是，在调用LaunchAppAndWait方法等待老版本卸载完成的时候，

11、一定要加上LAAW_OPTION_WAIT_INCL_CHILD ，主要是因为卸载的过程是Windows Install启动卸载程序，所以一定要等待Windows Install的子进程结束，否则将不能等待。4.在OnResumeUIAfter中完成新版本的安装，脚本如下：/-/ OnResumeUIAfter/ The OnResumeUIBefore event is called when end user runs installation that is/ performing a resumed install. Usually this happens by specifying

12、 a property/ like REINSTALL or ADDLOCAL at the command line when the product is already/ installed. In the handler, installation usually displays UI that will/ inform end user that Reinstallation has been completed successfully./-function OnResumeUIAfter()STRING noUse;NUMBER szProcessId;NUMBER nvPro

13、cessHandle; / Handle to a processNUMBER nvModuleHandle; / Handle to a process moduleSTRING szModuleName; / Module filenameNUMBER nvBytesRequired;beginszProcessId = GetCurrentProcessId();if szProcessId != 0 thenif ProcessRunning(noUse, szProcessId, szModuleName) = TRUE thenLaunchApp(szModuleName, /hi

14、de_progress);elseMessageBox(自动安装新版本遇到问题，请再次运行安装文件完成安装。, MB_OK);endif;elseMessageBox(自动安装新版本遇到问题，请再次运行安装文件完成安装。, MB_OK);endif;end;这里是通过GetCurrentProcessId得到当前进程的Id，并调用ProcessRunning获取当前进程模块的完整路径。5.ProcessRunning的脚本如下：/ Function: _Process_Running/ Description: Determines if the specified process is ru

15、nning in memory./ Parameters: szAppName - Name of the application to check./ nvFindProcessId - ID of the process to find./ szFindModName - Name of the Module of the found process/ Returns: TRUE - The process is running./ FALSE - The process is not running./function BOOL ProcessRunning(szAppName, nvF

16、indProcessId, szFindModName)BOOL bvRunning; / Process is runningNUMBER nvProcessIDs(512); / Array of process IDsNUMBER nvBytesReturned; / Number of bytes returned in process ID arrayNUMBER nvProcesses; / Number of processes runningNUMBER nvIndex; / Loop indexNUMBER nvProcessHandle; / Handle to a pro

17、cessNUMBER nvModuleHandle; / Handle to a process moduleNUMBER nvBytesRequired; / Number of bytes required to store valuesPOINTER pvProcessIDs; / Pointer to process ID arraySTRING svModuleName; / Module nameSTRING svFileName; / Module filenamebegin/ The psapi.dll reads the Windows NT performance data

18、base. The DLL/ is part of the Win32 SDK.if UseDLL(WINSYSDIR PSAPI_FILE) 0 then/ Could not load psapi.dll.MessageBox(ERROR: Could not load + WINSYSDIR PSAPI_FILE +., SEVERE);return FALSE;endif;/ Get the PIDs of all currently running processes.pvProcessIDs = ArrayToPointer(nvProcessIDs);EnumProcesses(

19、pvProcessIDs, 512, nvBytesReturned);/ Determine the number of process IDs retrieved. Each process ID/ is PROCESSID_LENGTH bytes.nvProcesses = nvBytesReturned / PROCESSID_LENGTH;/ Get the executable associated with each process, and check if/ its filename matches the one passed to the function.for nv

20、Index = 1 to nvProcesses/ Get a handle to the process.nvProcessHandle = OpenProcess(PROCESS_QUERY_INFORMATION |PROCESS_VM_READ, 0, nvProcessIDs(nvIndex);if nvProcessHandle != 0 then/ Get a handle to the first module in the process, which/ should be the executable.if EnumProcessModules(nvProcessHandl

21、e, nvModuleHandle,PROCESSID_LENGTH, nvBytesRequired) != 0 then/ Get the path of the module.if GetModuleFileNameExA(nvProcessHandle, nvModuleHandle,svModuleName, SizeOf(svModuleName) != 0 then/ Extract the filename (without an extension) from/ the path. /Add by QianShi at 2010.6.23/Get module name by

22、 process id.if nvProcessIDs(nvIndex) = nvFindProcessId thenszFindModName = svModuleName;bvRunning = TRUE;goto ProcessRunningEnd;endif;ParsePath(svFileName, svModuleName, FILENAME_ONLY);if StrCompare(svFileName, szAppName) = 0 then/ The process module matches the application/ name passed to the funct

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

24、kIIS();/监测系统是否安装了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的文章又帮了我一

25、个忙：/play/category/56.aspx InstallShield: xzIISConfig 用于配置 IIS 的 InstallScript 脚本/play/archive/2004/10/17/728.aspx InstallShield: 更新了 xzIISConfig 配置脚本和 xzSQLDeploy Tools /play/archive/2004/10/22/750.aspx在二帮主的帮助下写出了创建虚似目录的脚本，如下： set obj

26、IIS_Root = CoGetObject(IIS:/localhost/W3SVC/1/Root, ); if (IsObject(objIIS_Root) then try set objVirtDir = objIIS_Root.Create(IISWebVirtualDir,VIRTUALDIR ); if (IsObject(objVirtDir) then objVirtDir.Path = VIRTUALDIRPATH; objVirtDir.AccessRead = TRUE; objVirtDir.AccessScript = TRUE; objVirtDir.Access

27、Execute = TRUE; objVirtDir.SetInfo(); objVirtDir.AppCreate(TRUE); objVirtDir.SetInfo(); endif; catch set objVirtDir = CoGetObject(IIS:/localhost/W3SVC/1/Root/+VIRTUALDIR,); if(IsObject(objVirtDir) then MessageBox(存在同名虚似目录,WARNING); endif; endcatch; endif; 2 创建ISPAI筛选器创建ISAPI筛选器的脚本：set filters = CoGe

28、tObject(IIS:/localhost/W3SVC/Filters, ); if (IsObject(filters) then try set filter = filters.Create(IIsFilter,jakarta ); if (IsObject(filter) then filter.FilterDescription=jakarta; filter.FilterPath=TARGETDIRisapi_redirector2.dll; filter.FilterEnabled=TRUE ; filter.SetInfo(); filters.FilterLoadOrder

29、=jakarta; filters.SetInfo(); endif; catch set filter = NULL ; set filter = CoGetObject(IIS:/localhost/W3SVC/Filters/jakarta ,); if(IsObject(filter) then MessageBox(存在同名ISPAI筛选器,WARNING); /filters.delete(IIsFilter,jakarta); endif; endcatch; endif; 这个脚本是二帮主帮忙下写的，本来这个ISAPI的筛选器是创建在默认web站点的，应该是检测“set fil

30、ters = CoGetObject(IIS:/localhost/W3SVC/1/Filters, )”是否存在，然后再创建的ISPAI筛选器的，但是调试过程中创建不了，只能创建在更上一级“IIS:/localhost/W3SVC/Filters”。3 创建web服务扩展web服务扩展，这个特性是WinServer2003里IIS6.0增加的新特征。我查阅了资料，说IIS5.0和IIS6.0的区别很大，并且IIS6.0把对IIS的配置数据保存在一个xml文件里c:windowssystem32下的Metabase.xml，包含IIS 6.0服务器的配置信息。经过调试，发现web服务扩展的数据存放在“IIS:/localhost/W3SVC”节点下面的“WebSvcExtRestrictionList”处。用函数“AddExtensionFile”来添加web服务扩展的文件。IIsWebService.AddExtensi