backScript = SystemPath( "ScriptPath" )
myScriptName = SystemPath("ScriptName")

# 1) HomeScreen_PlusPlus_UI 설치
SleepMessage( 1, "HomeScreen++ 설치중입니다.", "Wait...", 0 )
file = backScript \ "프로그램\HomeScreen_PlusPlus_UI.cab"
Call ("SilentInstall", file)

XCopy ( backScript \ "프로그램\HSLanguage_KOR\*", "\Program Files\HomeScreen PlusPlus\", 1, 1 )

# 2) 테마화일&스크립트및 기타 프로그램들 복사
SleepMessage( 1, "테마화일 복사중입니다.", "Wait...", 0 )
XCopy ( backScript \ "테마\oxk.xml", "\Program Files\HomeScreen PlusPlus\", 1, 1 )
XCopy ( backScript \ "테마\oxk\*", "\Program Files\HomeScreen PlusPlus\oxk\", 1, 1 )
XCopy ( backScript \ "스크립트\*", "\Windows\시작\", 1, 1 )

XCopy ( backScript \ "프로그램\rltoday_달력\*", "\Program Files\rlToday\", 1, 1 )
XCopy ( backScript \ "프로그램\TodayAgenda\*", "\Program Files\TodayAgenda\", 1, 1 )

# 3) 날씨 설정
Message( "다음화면에서 날씨를 보여줄 지역을 선택해 주세요.\
^CR^^LF^^CR^^LF^일치하는 지역이 없다면, 인근지역을 선택해 주시기 바랍니다." )
file = "\Program Files\HomeScreen PlusPlus\oxk\Script\yWeather.mscr"
CallScript ( file )

# 4) 레지스트리에 정보 입력
file = backScript \ "프로그램\Apps.reg"
call ("importRegFile", file, 1 )

# 5) nuenobar_v1.3 설치
SleepMessage( 1, "nuenobar_v1.3 설치중입니다.", "Wait...", 0 )
file = backScript \ "프로그램\nuenobar_v1.3.cab"
Call ("SilentInstall", file)

# 6) 재부팅
#========================================================
ansinst = Question ("천만에 시즌2 설치가 완료되었습니다. \
^CR^^LF^^CR^^LF^재부팅후 '설정-오늘-항목' 화면에서 'HomeScreen PlusPlus'를 제외한 나머지 항목의 체크를 모두 해제하세요. \
^CR^^LF^^CR^^LF^^CR^^LF^지금 재부팅 하시겠습니까?", "설치완료", "YesNo")

If (ansinst = 1)
  Reset
#els
#  SleepMessage( 5, "설치완료", myScriptName, 1 )
EndIf

Exit

#========================================================
#조용히 설치 Sub
#wceload [/noaskdest | /askdest | /delete <number> | /noui | /nouninstall] <cab file location>
#========================================================
Sub SilentInstall
  fd=argv[1]
	runwait("\Windows\wceload.exe", """" & fd & """ /noui /nodelete")
EndSub
#========================================================

#========================================================
#Registry Import Sub
#========================================================
Sub importRegFile
  fd=argv[1]
  isilent=argv[2]
  # set reg file to be open with taskmgr
  f1= backScript \ "TaskMgr.exe"
  f1exist = FileExists(f1)
  If (f1exist = 0)
    Message ("File does not exists to do registry import" & f1)
  Else
    if (debug= 1 ) 
       message("Dbug " & fd & " " & isilent)
    endif
    if (isilent = 1)
      RunWait ( f1,  fd & " /silent")
    else
      ansinst1 = Question ( "Do you want to import " & file, myScriptName , "YesNo")
      If (ansinst1 = 1)
        RunWait ( f1,  fd & " /silent")
      endif
    endif
    
  EndIf 
EndSub