installshield 如何生成卸载项 （是不是没人知道）(20分)

installshield 如何生成卸载项

卸载项的快捷方式吗？

自己建立一个快捷方式吧，我也是这样处理的

//在上边的目录创建卸载的快捷方式！
if GetDisk(FOLDER_PROGRAMS,szCommandLine) < 0 then
SprintfBox (WARNING, '', "不能获得磁盘驱动器名称: %s", szCommandLine);
endif;
szCommandLine = szCommandLine+"//Program Files//InstallShield Installation Information//{3c23b9b6-8cb0-4520-90df-03f33d56463c}//"^"Setup.exe";//这里换成你自己的GUID
szCommandLine = "/""+szCommandLine+"/"";
szWorkingDir = TARGETDIR;
szIconPath = "";
nIcon = 0;
szShortCutKey ="";
szFolderName = szMainFolderName^"卸载";
if ((nError=AddFolderIcon(FOLDER_PROGRAMS,szFolderName,szCommandLine,szWorkingDir,szIconPath,nIcon,szShortCutKey,REPLACE))<0) then
SprintfBox(INFORMATION,"错误","函数调用失败:%d",nError);
endif;

非常感谢上面几位的指教。这个问题我以解决了。大致和codehunter008所说差不多。方法如下：
prototype CreateUninstallShortcut();
function CreateUninstallShortcut()
string strCmdLine;

LIST lstPath;
begin

strCmdLine = UNINSTALL_STRING;


if (SYSINFO.WINNT.bWinXP)||(SYSINFO.WINNT.bWinXP) then

lstPath = ListCreate( STRINGLIST );

StrGetTokens( lstPath, UNINSTALL_STRING, "/" );


ListGetFirstString( lstPath, strCmdLine );

LongPathToQuote( strCmdLine, TRUE );


strCmdLine = strCmdLine + " /M" + PRODUCT_GUID;
endif;


AddFolderIcon(FOLDER_PROGRAMS ^ "程序栏后的名称", "卸载 名称",strCmdLine, "","",0, "", REPLACE );

end;