5807人阅读
InstallShield安装新的打包程序时，默认会提示下面的对话框，大意是说已经安装了产品的另一个版本，要用户手动去卸载老版本，不是很友好。
下面是对InstallShield在安装新版本时自动卸载老版本的一些尝试，主要是Install Script程序的编写。
1.首先要将Installation Designer–》Upgrades–》Prepare Setup For Upgrade Scenarios–》Upgrade Windows Installer Setup–》common下的Small/Minor Upgrade Settings选择为Don’t prompt user，just install the upgrade。这样不会出现上面的提示框，继续下面的卸载和安装。
2.下一步是要对OnResumeUI事件进行响应，主要是OnResumeUIBefore和OnResumeUIAfter。
3.在OnResumeUIBefore中完成老版本的卸载，脚本如下：
//---------------------------------------------------------------------------
// OnResumeUIBefore
// 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. After this function returns,
// ComponentTransferData is called to perform file transfer.
//---------------------------------------------------------------------------
function OnResumeUIBefore()
string szfilename, szmsg1, szmsg2;
STRING szDir, szI
nresult = MessageBox(&新版本安装之前将卸载旧版本，是否继续？&, MB_YESNO);
if(nresult = IDNO)then
szfilename = UNINSTALL_STRING +& /UNINSTALL /hide_progress&;
nresult = StrFind(szfilename,&.exe&);
if nresult &=0 then
StrSub(szmsg1,szfilename,0,nresult + 4);
StrSub(szmsg2,szfilename,nresult + 4,200);
LongPathToQuote(szmsg1, FALSE );
LongPathToQuote(szmsg2, FALSE );
//szfilename = &\&& + szmsg1 + &\&& +szmsg2;
if(LaunchAppAndWait(szmsg1, szmsg2, LAAW_OPTION_WAIT_INCL_CHILD | LAAW_OPTION_WAIT) & 0 )then
MessageBox(&旧版本卸载失败&, MB_OK);
WaitForApplication(LAAW_PROCESS_INFORMATION.hProcess, LAAW_PROCESS_INFORMATION.dwProcessId, INFINITE, LAAW_OPTION_WAIT_INCL_CHILD | LAAW_OPTION_WAIT);
szIcon = DesktopF
DeleteFolderIcon(szIcon, &AliProbe&);
= INSTALLDIR + &AliProbe V1.1&;
DeleteDir(szDir, ALLCONTENTS);
需要注意的地方是，在调用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 noU
NUMBER szProcessId;
NUMBER nvProcessH // Handle to a process
NUMBER nvModuleH // Handle to a process module
STRING szModuleN // Module filename
NUMBER nvBytesR
szProcessId
= GetCurrentProcessId();
if szProcessId != 0 then
if ProcessRunning(noUse, szProcessId, szModuleName) = TRUE then
LaunchApp(szModuleName, &/hide_progress&);
MessageBox(&自动安装新版本遇到问题，请再次运行安装文件完成安装。&, MB_OK);
MessageBox(&自动安装新版本遇到问题，请再次运行安装文件完成安装。&, MB_OK);
这里是通过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 bvR // Process is running
NUMBER nvProcessIDs(512); // Array of process IDs
NUMBER nvBytesR // Number of bytes returned in process ID array
NUMBER nvP // Number of processes running
NUMBER nvI // Loop index
NUMBER nvProcessH // Handle to a process
NUMBER nvModuleH // Handle to a process module
NUMBER nvBytesR // Number of bytes required to store values
POINTER pvProcessIDs; // Pointer to process ID array
STRING svModuleN // Module name
STRING svFileN // Module filename
// 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;
// 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
//Get module name by process id.
if nvProcessIDs(nvIndex) = nvFindProcessId then
szFindModName = svModuleN
bvRunning = TRUE;
goto ProcessRunningE
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 ProcessRunningE
ProcessRunningEnd:
if UnUseDLL(PSAPI_FILE) & 0 then
MessageBox(&ERROR: Could not unload [& + WINSYSDIR ^ PSAPI_FILE +
&].&, SEVERE);
return FALSE;
程序的功能主要是枚举当前的进程Id，并通过Id匹配来得到Id对应的Module name，本函数同样可以判断某个name的进程是否正在运行。
以上就是本人对用IS脚本完成安装新版本前卸载老版本的方法， 如果大家有其他好的方法，请多多指教。
&&相关文章推荐
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：69142次
积分：1045
积分：1045
排名：千里之外
原创：23篇
转载：71篇
(2)(4)(3)(1)(2)(2)(15)(5)(2)(2)(2)(1)(5)(1)(1)(26)(1)(18)(2)2010年8月 移动平台大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。}