卸载文件的快捷方式
function OnMoved()
string szApp, szCmdLine;
number nDelimiter;
begin
if( !REMOVEALLMODE ) then
// Find the delimiter
nDelimiter = StrFind( UNINSTALL_STRING, DISK1SETUPEXENAME ) + StrLengthChars( DISK1SETUPEXENAME );
// Build app & quote
StrSub( szApp, UNINSTALL_STRING, 0, nDelimiter );
LongPathToQuote( szApp, TRUE );
// Build command line
StrSub( szCmdLine, UNINSTALL_STRING, nDelimiter, StrLengthChars( UNINSTALL_STRING ) - nDelimiter );
// Create shortcut.
AddFolderIcon( FOLDER_DESKTOP, "Uninstall Application_ FOLDER_DESKTOP", szApp + szCmdLine, "", "", 0, "", REPLACE );
AddFolderIcon( FOLDER_STARTMENU, "Uninstall Application_FOLDER_STARTMENU", szApp + szCmdLine, "", "", 0, "", REPLACE );
AddFolderIcon( FOLDER_PROGRAMS "Uninstall Application_FOLDER_PROGRAMS", szApp + szCmdLine, "", "", 0, "", REPLACE );
endif;
end;