添加卸载的快捷方式:
prototype CreateUninstallShortcut();
function CreateUninstallShortcut()
string strCmdLine;
LIST lstPath;
begin
strCmdLine = UNINSTALL_STRING;
// The path has to be handled differently if you are running on
// Windows 9X.
if ( SYSINFO.WIN9X.bWin9X ) then
lstPath = ListCreate( STRINGLIST );
StrGetTokens( lstPath, UNINSTALL_STRING, "/" );
ListGetFirstString( lstPath, strCmdLine );
LongPathToQuote( strCmdLine, TRUE );
strCmdLine = strCmdLine + " /M" + PRODUCT_GUID;
endif;
// Create the actual shortcut...
AddFolderIcon(FOLDER_PROGRAMS ^ "CacheViewX", "Run the Uninstall",strCmdLine, "","",0, "", NULL );
end;