Author: nextgens
Date: 2006-03-08 09:20:38 +0000 (Wed, 08 Mar 2006)
New Revision: 8193

Added:
   trunk/apps/installer/installclasspath/windows/
   trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs
Modified:
   trunk/apps/installer/build-installer.xml
   trunk/apps/installer/install.cmd
Log:
Added a CreateDesktopShortcut script; it needs to be integrated

Modified: trunk/apps/installer/build-installer.xml
===================================================================
--- trunk/apps/installer/build-installer.xml    2006-03-08 00:08:45 UTC (rev 
8192)
+++ trunk/apps/installer/build-installer.xml    2006-03-08 09:20:38 UTC (rev 
8193)
@@ -27,6 +27,7 @@
                                <fileset dir="installclasspath" 
includes="resources/*"/>
                                <fileset dir="installclasspath" 
includes="bin/*"/>
                                <fileset dir="installclasspath" 
includes="config/*"/>
+                               <fileset dir="installclasspath" 
includes="windows/*"/>
                                <fileset dir="installclasspath" 
includes="sha1test.jar"/>
                </installer>
        </target>

Modified: trunk/apps/installer/install.cmd
===================================================================
--- trunk/apps/installer/install.cmd    2006-03-08 00:08:45 UTC (rev 8192)
+++ trunk/apps/installer/install.cmd    2006-03-08 09:20:38 UTC (rev 8193)
@@ -38,4 +38,4 @@
 goto end


-:end
\ No newline at end of file
+:end

Added: trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs
===================================================================
--- trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs     
2006-03-08 00:08:45 UTC (rev 8192)
+++ trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs     
2006-03-08 09:20:38 UTC (rev 8193)
@@ -0,0 +1,16 @@
+set args = WScript.Arguments
+num = args.Count
+
+INSTALL_PATH = args.Item(1)
+
+Set Shell = CreateObject("WScript.Shell")
+DesktopPath = Shell.SpecialFolders("Desktop")
+Set link = Shell.CreateShortcut(DesktopPath & "\Freenet.lnk")
+link.Arguments = "-Xmx256M -cp freenet-ext.jar;freenet-cvs-snapshot.jar 
freenet.node.Node"
+link.Description = "The Free Network Project"
+link.HotKey = "CTRL+ALT+SHIFT+F"
+link.IconLocation = INSTALL_PATH & "\freenet.ico"
+link.TargetPath = "%JAVA_HOME%\bin\java.exe"
+link.WindowStyle = 1
+link.WorkingDirectory = INSTALL_PATH
+link.Save


Reply via email to