installshield学习笔记专业资料.doc

安装前设立界面公司标记在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_Full_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:inetpubAdminScriptsServerManagerCmd.exe 管理安装服务器角色参数名称：修改IIS中ISAPI和CGI限制%windir%system32inetsrvappcmd.exe set config /section:isapiCgiRestriction /path=C:WindowsMicrosoft.NETFrameworkv4.0.30319aspnet_isapi.dll.allowed:True控制文本框自定义界面，假如控制文本框此时，当选择文本框时，便可取消其它选项的状态。多语言安装不同语言的安装文献放到不同的Components里，然后设立相应的安装语言条件即可获取安装环境语言获取Version信息读取ProductVersion PropertyInstallshield获取安装包版本的系统变量为IFX_PRODUCT_VERSION打开对话框的时候按某个途径打开打开某一个途径的文献夹用这个函数 ShowProgramFolder ( szFolder, nCommand );判断服务状态ServiceGetServiceStateInstallshield环境变量的追加与删除= 环境变量的追加与删除 = 环境变量的添加或追加 =* 问题：如何能在安装包中添加环境变量，而不用用户手动在我的电脑/属性/高级/环境变量中设立，特别是，如何能判断已有的环境变量，如Path，在不改变已有的环境变量的内容的基础上，进行追加呢？* 解决方案：添加环境变量时，可以通过注册表中相应位置写键值的方式完毕：HKEY_LOCAL_MACHINESYSTEMControlSet001ControlSession ManagerEnvironment.一方面判断Path是否存在，假如不存在，创建，假如存在，已有的内容进行追加。追加的方法参考如下代码：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 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;endif; /添加系统途径 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,szPath,-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);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_PROCESS_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方法等待老版本卸载完毕的时候，一定要加上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 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 nvProcessHandle; / 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, /hide_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 running 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, nvFindProcessId, 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 processNUMBER 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 database. 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(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 nvIndex = 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(nvProcessHandle, 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 2023.6.23/Get module name by 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 function.bvRunning = TRUE;goto ProcessRunningEnd;endif;endif;endif;endif;endfor;ProcessRunningEnd:if UnUseDLL(PSAPI_FILE) 0 thenMessageBox(ERROR: Could not unload + WINSYSDIR PSAPI_FILE +., SEVERE);return FALSE;endif;return bvRunning;end;程序的功能重要是枚举当前的进程Id，并通过Id匹配来得到Id相应的Module name，本函数同样可以判断某个name的进程是否正在运营。以上就是本人对用IS脚本完毕安装新版本前卸载老版本的方法， 假如大家有其他好的方法，请多多指教。 原文链接自带更新升级问题汇总1.当安装程序需要删除一些文献的时候，需要做Major Upgrade，新安装之前必须卸载旧版本2.Dll文献升级必须更改版本号注册表相应的反映HKLMSOFTWAREClassesInstallerProducts5BDC99C4525D2B