installshield创建反安装快捷方式

 

卸载文件的快捷方式

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;