InstallShield高手请进

[njlengjiang]

小弟用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;

[njlengjiang]

楼上的师兄能说的更详细点吗？

InstallScript中也使用了如下的代码进行反安装：
function OnFirstUIAfter()
STRING szfilename,szFolder ,szmsg1,szmsg2;
NUMBER nresult;
begin
//创建删除快捷方式
szfilename = UNINSTALL_STRING +" /UNINSTALL";
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;
endif;
AddFolderIcon(FOLDER_PROGRAMS^"Test","Uninstall",szfilename,WINDIR,"",0,"",REPLACE);
End;

我在开始->程序->XXX->中添加了卸载的快捷方式，可以卸载但是卸载的不干净，会遗留下上面所说的那些文件。
楼上师兄的意思是指若ComponentRemoveAll()函数清理不完，则再使用DeleteFile()函数将安装路径下的文件清理掉？？

[hurryboylqs]

先反注册，然后delete file即可

[Denislu]

function LM_UninstallShortKey()
STRING szFolderName,szProgram,szWorkingDir,strTemp,strLanguage;
STRING strCmdLine, strUninstallCmdLine;
NUMBER num;
begin
strCmdLine = DISK1TARGET ^ "setup.exe";
LongPathToQuote( strCmdLine, TRUE );
UNINSTALL_STRING = strCmdLine;

strUninstallCmdLine = UNINSTALL_STRING + " -runfromtemp -l";

RegDBGetItem(REGDB_UNINSTALL_LANGUAGE,strLanguage);
StrToNum(num,strLanguage);
Sprintf(strTemp,"0x%lX",num) ;

RegDBSetItem(REGDB_UNINSTALL_NOREPAIR,'1');
RegDBSetItem(REGDB_UNINSTALL_NOMODIFY,'1');

strUninstallCmdLine = strUninstallCmdLine + strTemp;
UNINST = strUninstallCmdLine + " -uninst";

AddFolderIcon( @ID_FOLDER_NAME, @ID_UNINSTALL, UNINST, DISK1TARGET,
"", 0, "", REPLACE );
end;

[Denislu]

你使用一下上面写的卸载快捷方式，另外我对你components添加文件的Link Type表示怀疑，请使用Dynamic链接方式，可能不会出现该问题

[njlengjiang]

没有大虾能解决下小弟的问题吗？？？？

[Javeson]

DeleteDir ( TARGETDIR , ALLCONTENTS );