[JVCL-Checkins] SF.net SVN: jvcl: [11465] trunk/jvcl/install/ISS/Install.iss

[<ah...@us...>]

Revision: 11465
          http://jvcl.svn.sourceforge.net/jvcl/?rev=11465&view=rev
Author:   ahuser
Date:     2007-08-17 08:41:35 -0700 (Fri, 17 Aug 2007)

Log Message:
-----------
Uninstall only from installed IDEs

Modified Paths:
--------------
    trunk/jvcl/install/ISS/Install.iss

Modified: trunk/jvcl/install/ISS/Install.iss
===================================================================
--- trunk/jvcl/install/ISS/Install.iss	2007-08-17 15:30:38 UTC (rev 11464)
+++ trunk/jvcl/install/ISS/Install.iss	2007-08-17 15:41:35 UTC (rev 11465)
@@ -370,18 +370,18 @@
 // during the installation. The user could have started the JVCLInstaller
 // or have added additional designtime packages by hand.
 var
-  {IdeList: TStrings;
+  IdeList: TStrings;
   IdeIndex: Integer;
-  IdeKind: TIdeKind;}
+  IdeKind: TIdeKind;
   Version: Integer;
 begin
-  // Uninstall from all IDEs ?
+{  // Uninstall from all IDEs ?
   for Version := 5 to 11 do
     UninstallDesignPackagesPrefixed(ikDelphi, Version, 'Jv');
   for Version := 5 to 6 do
-    UninstallDesignPackagesPrefixed(ikBCB, Version, 'Jv');
+    UninstallDesignPackagesPrefixed(ikBCB, Version, 'Jv');}
 
-{  IdeList := TStringList.Create;
+  IdeList := TStringList.Create;
   try
     GetSelectedList(IdeList, 'IDE', Components);
     // unregister per IDE
@@ -392,7 +392,7 @@
     end;
   finally
     IdeList.Free;
-  end;}
+  end;
 end;
 
 function MapExpert(IdeKind: TIdeKind; Version: Integer; const ExpertName: string): string;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.