6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-26 17:36:57 +00:00
Code Issues Projects Releases Wiki Activity

Check if the bin directory is already in the path

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3417 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2005-03-25 22:25:10 +00:00
parent 9adac3c5b0
commit d0e4dfc8bd
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/windows/install.vbs
View File

@ -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