InstallShield高手请进
小弟用InstallShield2009制作了一个安装包,自己写了下卸载的脚本,使用的是ComponentRemoveAll()函数进行卸载,不过卸载后发现在安装文件夹中还是有几个组件没有卸载掉, 经过仔细观察发现这些组件下包含的文件与另外几个组件下的文件一样(文件名及大小相同),比如:tService.exe4组件与tService.exe5组件下的文件一样,只是Link路径不同
我想请教下高手怎样能将安装文件夹下的组件清理干净(后续给出卸载脚本,谢谢各位了)
function OnMaintUIBefore()
NUMBER nResult, nType;
STRING szTitle, szMsg, svDir, svResult, szCaption;
begin
Dlg_Start:
Disable(BACKBUTTON);
nType = SdWelcomeMaint(szTitle, szMsg, MODIFY);
Enable(BACKBUTTON);
if ( nType = REMOVEALL ) then
nResult = MessageBox( SdLoadString( IFX_MAINTUI_MSG ), MB_YESNO );
if (nResult != IDYES ) then
goto Dlg_Start;
endif;
endif;
nResult = NEXT;
Dlg_SdFeatureTree:
if (nType = MODIFY) then
szTitle = "";
szMsg = "";
nResult = SdFeatureTree(szTitle, szMsg, INSTALLDIR, "", 2);
if (nResult = BACK) goto Dlg_Start;
endif;
switch(nType)
case REMOVEALL:
ComponentRemoveAll();
SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_MAINTUI_REMOVEALL ));
case REPAIR:
ComponentReinstall();
SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_MAINTUI_REPAIR ) );
case MODIFY:
SetStatusExStaticText( SdLoadString( IDS_IFX_STATUSEX_STATICTEXT_MAINTUI_MODIFY ) );
endswitch;
SetStatusWindow(0, "");
Enable(STATUSEX);
StatusUpdate(ON, 100);
end;