Subversion Repositories gelsvn

Rev

Blame | Last modification | View Log | RSS feed

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:         A.N.Other <myemail@nowhere.com>
;
; Script Function:
;       Template AutoIt script.
;
; ----------------------------------------------------------------------------

#include-once
#include <GUIConstants.au3>

Func EnvLocal($scope)
  
  Local $envloc = "HKCU\Environment"
  If $scope = "System" Then
    $envloc = "HKLM\System\ControlSet001\Control\Session Manager\Environment"
  EndIf
  return $envloc
Endfunc

Func updatePath(ByRef $inpubox) 
    Local $text = FileSelectFolder ( "Select folder", "" , 1 )

    If $text <> "" Then
      GUICtrlSetData($inpubox, $text)
    EndIf
EndFunc

Func installLibs($GELpath, $scope)
  
  $envloc = EnvLocal($scope)

  RegWrite($envloc,"GEL_INCLUDE","REG_EXPAND_SZ",$GELPath & "\include")
  RegWrite($envloc,"GEL_LIB","REG_EXPAND_SZ",$GELPath & "\lib")
  RegWrite($envloc,"GEL_BIN","REG_EXPAND_SZ",$GELPath & "\bin")

  $Path = RegREad($envloc,"Path")
  RegWrite($envloc,"Path","REG_EXPAND_SZ",$Path & ";" & "%GEL_BIN%")
  MsgBox(0,"Info","Added " & $GELpath & " to path",5)

EndFunc

Func makeSolution($GELpath, $msvcVer, $libType, $scope)
  
  $envloc = EnvLocal($scope)

  
  

EndFunc