Author: nextgens
Date: 2006-05-06 13:36:41 +0000 (Sat, 06 May 2006)
New Revision: 8622
Modified:
trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs
Log:
installer: resolve #314
Modified:
trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs
===================================================================
--- trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs
2006-05-06 13:29:06 UTC (rev 8621)
+++ trunk/apps/installer/installclasspath/windows/CreateDesktopShortcut.vbs
2006-05-06 13:36:41 UTC (rev 8622)
@@ -4,34 +4,43 @@
KIND = args.Item(1)
PORT = args.Item(2)
-Set Shell = CreateObject("WScript.Shell")
-DesktopPath = Shell.SpecialFolders("Desktop")
-Set link = Shell.CreateShortcut(DesktopPath & "\Freenet-" & KIND & ".lnk")
-link.Arguments = ""
-link.Description = "The Free Network Project"
-link.HotKey = "CTRL+ALT+SHIFT+F"
-link.IconLocation = INSTALL_PATH & "\freenet.ico"
-link.TargetPath = "http://127.0.0.1:"; & PORT
-link.WindowStyle = 1
-link.WorkingDirectory = INSTALL_PATH
-link.Save
+'Set link = Shell.CreateShortcut(DesktopPath & "\frost.lnk")
+'link.Arguments = ""
+'link.Description = "FROST"
+'link.HotKey = ""
+'link.IconLocation = INSTALL_PATH & "\frost\jtc.ico"
+'link.TargetPath = "frost.bat"
+'link.WindowStyle = 1
+'link.WorkingDirectory = INSTALL_PATH & "\frost"
+'link.Save
-Set link = Shell.CreateShortcut(DesktopPath & "\start-Freenet-" & KIND &
".lnk")
-link.Arguments = "start freenet"
-link.Description = "The Free Network Project"
-link.HotKey = ""
-link.IconLocation = INSTALL_PATH & "\freenet.ico"
-link.TargetPath = "net"
-link.WindowStyle = 1
-link.WorkingDirectory = INSTALL_PATH
-link.Save
+Set WshShell = CreateObject("WScript.Shell")
+'Define the folder as StartMenu
+sStartMenu = WshShell.SpecialFolders("Programs")
+'Define the folder as Desktop
+sDesktop = WshShell.SpecialFolders("Desktop")
-Set link = Shell.CreateShortcut(DesktopPath & "\frost.lnk")
-link.Arguments = ""
-link.Description = "FROST"
-link.HotKey = ""
-link.IconLocation = INSTALL_PATH & "\frost\jtc.ico"
-link.TargetPath = "frost.bat"
-link.WindowStyle = 1
-link.WorkingDirectory = INSTALL_PATH & "\frost"
-link.Save
+'Create Desktop shortcut:
+
+Set oShellLink = WshShell.CreateShortcut(sDesktop & "\Freenet-" & KIND &
"-Main Page.lnk")
+oShellLink.Arguments = ""
+oShellLink.Description = "The Free Network Project"
+oShellLink.HotKey = "CTRL+ALT+SHIFT+F"
+oShellLink.IconLocation = INSTALL_PATH & "\freenet.ico"
+oShellLink.TargetPath = "http://127.0.0.1:"; & PORT
+oShellLink.WindowStyle = 1
+oShellLink.WorkingDirectory = INSTALL_PATH
+oShellLink.Save
+
+'Create ShortCut in Start Menu.
+Set fso = CreateObject("Scripting.FileSystemObject")
+Set f = fso.CreateFolder(sStartMenu & "/Freenet")
+Set oShellLink = WshShell.CreateShortcut(sStartMenu & "/Freenet/Freenet-" &
KIND & "-Main Page.lnk")
+oShellLink.Arguments = ""
+oShellLink.Description = "The Free Network Project"
+oShellLink.HotKey = "CTRL+ALT+SHIFT+F"
+oShellLink.IconLocation = INSTALL_PATH & "\freenet.ico"
+oShellLink.TargetPath = "http://127.0.0.1:"; & PORT
+oShellLink.WindowStyle = 1
+oShellLink.WorkingDirectory = INSTALL_PATH
+oShellLink.Save
