Author: nextgens
Date: 2006-03-25 15:24:17 +0000 (Sat, 25 Mar 2006)
New Revision: 8311
Modified:
trunk/apps/installer/build.xml
trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs
Log:
installer: Now desktop icons should be created
Modified: trunk/apps/installer/build.xml
===================================================================
--- trunk/apps/installer/build.xml 2006-03-25 15:11:33 UTC (rev 8310)
+++ trunk/apps/installer/build.xml 2006-03-25 15:24:17 UTC (rev 8311)
@@ -63,6 +63,18 @@
<antcall target="${target}"/>
<echo message="Creating shortcuts"/>
+ <exec os="Windows 2003" executable="cscript"
dir="${installDir}/" spawn="true">
+ <arg value="CreateDesktopShortcut.vbs"/>
+ <arg value="${installDir}"/>
+ </exec>
+ <exec os="Windows 2000" executable="cscript"
dir="${installDir}/" spawn="true">
+ <arg value="CreateDesktopShortcut.vbs"/>
+ <arg value="${installDir}"/>
+ </exec>
+ <exec os="Windows XP" executable="cscript" dir="${installDir}/"
spawn="true">
+ <arg value="CreateDesktopShortcut.vbs"/>
+ <arg value="${installDir}"/>
+ </exec>
<!--
<exec os="Windows 2000" executable="CreateDesktopShortcut.vbs"
dir="${basedir}/windows">
<arg value="${installDir}"/>
Modified:
trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs
===================================================================
--- trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs
2006-03-25 15:11:33 UTC (rev 8310)
+++ trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs
2006-03-25 15:24:17 UTC (rev 8311)
@@ -1,15 +1,15 @@
set args = WScript.Arguments
-INSTALL_PATH = args
+INSTALL_PATH = ""
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\Freenet.lnk")
-link.Arguments = "console"
+link.Arguments = "http://127.0.0.1:8888";
link.Description = "The Free Network Project"
link.HotKey = "CTRL+ALT+SHIFT+F"
link.IconLocation = INSTALL_PATH & "\freenet.ico"
-link.TargetPath = "run"
+link.TargetPath = "start"
link.WindowStyle = 1
link.WorkingDirectory = INSTALL_PATH
link.Save
