Check if the bin directory is already in the path

git-svn-id: svn://svn.cc65.org/cc65/trunk@3417 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/packages/windows/install.vbs b/packages/windows/install.vbs
index e8c601fa50eb2d3a6cf5b7dc5aed9e008694f699..8d9494b9f319b65e9264e5e2f22b5c9ece3e1ec8 100644 (file)
--- a/packages/windows/install.vbs
+++ b/packages/windows/install.vbs
@@ -6,7 +6,7 @@ Option Explicit                 ' Variables must be declared explicitly
 ' Installer defaults.
 '******************************************************************************
 const AppName     = "cc65"
-const Version     = "2.10.1"
+const Version     = "2.10.5.20050325"
 const Installer   = "cc65 Installer"
 const SpaceNeeded = 20                  ' Free space needed on drive in MB
 const Shortcut    = true                ' Create shortcut on desktop
@@ -591,7 +591,7 @@ function DirInPath (ByVal Dir)
     dim Path, Entries, I
 
     ' Get the path in lower case
-    Path = GetEnv ("%Path%")
+    Path = LCase (GetEnv ("%Path%"))
 
     ' Convert the directory to lower case
     Dir = LCase (Dir)
@@ -1060,13 +1060,14 @@ sub AddEnvironment ()
         call Abort (GetMsg ("MSG_REGWRITEERR"))
     end if
 
-    ' Add the bin directory to the path
-    call AddToSysPath (BinDir)
-
-    ' Run the wm_settingchange program to notify other running programs
-    ' of the changed environment. Ignore errors.
-    call Run (BuildPath (BinDir, "wm_settingchange.exe"), 0)
+    ' Add the bin directory to the path if it's not already there
+    if not DirInPath (BinDir) then
+       call AddToSysPath (BinDir)
 
+       ' Run the wm_settingchange program to notify other running programs
+       ' of the changed environment. Ignore errors.
+       call Run (BuildPath (BinDir, "wm_settingchange.exe"), 0)
+    end if
 
 end sub