Errorlevel("warn")

If(WndExists("Garmin Mobile XT"))
Show("Garmin Mobile XT")
Exit
EndIf

#Whether to use Port Splitter
usePortSplitter = 0

cwd = SystemPath("ScriptPath")
queDir = cwd \ "..\Apps\WM"
queExe = "Que.exe"

#Devices with Windows CE 6 already have aygshell.dll hence Que.aygshell.exe will be run instead of Que.exe which is linked to aygshel2.dll
If(SystemVersion("major") = 6)
queExe = "Que.aygshell.exe"
EndIf

#Rename coredl2.dll depending on the current version of Windows CE
Call("RenameCoredll")


If(usePortSplitter)
Call("StartPortSplitter")
EndIf

isExplorerRunning = ProcExists("explorer.exe")

#Run explorer.exe if not running
If(not isExplorerRunning)
Run("\Windows\explorer.exe")
Sleep(1000)
EndIf

#Hide Taskbar
Run(cwd \ "TaskbarHide.exe")

#Copy previous stored settings to \Garmin
XCopy(cwd \ "Settings\*.*", "\Garmin", TRUE)

#Run and wait for Garmin Mobile XT to exit
RunWait(queDir \ queExe)

#Save new settings back to SD Card
XCopy("\Garmin\*.*", cwd \ "Settings", TRUE)

#Kill explorer.exe if it was not running before
If(not isExplorerRunning)
If(ProcExists("explorer.exe"))
Kill("explorer.exe")
EndIf
EndIf

#Show Taskbar
Run(cwd \ "TaskbarShow.exe")

If(usePortSplitter)
Call("StopPortSplitter")
EndIf



#Start Port Splitter
Sub StartPortSplitter
Global(cwd)
#If Settings.dat does not exit ask the user to configure Port Splitter
If(not FileExists(cwd \ "Settings.dat"))
BigMessage("Port Splitter's Settings.dat not found.^NL^Port Splitter will now run to configure it.^NL^1. Select input port and baudrate.^NL^2. Check Autostart.^NL^3. Select ouput port.^NL^4. Click Add.^NL^5. Click Start.^NL^6. Click Stop.^NL^7. Click Exit.^NL^If you want to reconfigure it delete:^NL^" & cwd \ "Settings.dat", "PortSplitter Settings")
Run(cwd \ "Port Splitter.exe")
Sleep(500)

#Wait up to 60 seconds for the window to be closed
timeout_ms = 60000
sleep_ms = 250
i = 0
While(WndExists("Port Splitter V1.31") AND i < timeout_ms)
Sleep(sleep_ms)
i += sleep_ms
EndWhile

#Stop Port Splitter in case the user did not click exit
Call("StopPortSplitter")
EndIf

#Run Port Splitter if not running
If(not ProcExists("Port Splitter.exe"))
Run(cwd \ "Port Splitter.exe")
Sleep(500)
EndIf
EndSub

#Stop Port Splitter
Sub StopPortSplitter
#Try first to stop and exit Port Splitter before killing it
If(WndExists("Port Splitter V1.31"))
#Stop button
SendCommand("Port Splitter V1.31", 1010)
Sleep(500)
#Exit button
SendCommand("Port Splitter V1.31", 2)
Sleep(500)
EndIf

#Kill Port Splitter process
If(ProcExists("Port Splitter.exe"))
Kill("Port Splitter.exe")
EndIf
EndSub

#Rename coredl2.dll depending on the current version of Windows CE
Sub RenameCoredll
If(SystemVersion("major") = 4)
If(FileExists(queDir \ "coredl2.wince4.dll"))
If(FileExists(queDir \ "coredl2.dll"))
Rename(queDir \ "coredl2.dll", queDir \ "coredl2.wince5.dll")
EndIf
Rename(queDir \ "coredl2.wince4.dll", queDir \ "coredl2.dll")
EndIf
Else
If(FileExists(queDir \ "coredl2.wince5.dll"))
If(FileExists(queDir \ "coredl2.dll"))
Rename(queDir \ "coredl2.dll", queDir \ "coredl2.wince4.dll")
EndIf
Rename(queDir \ "coredl2.wince5.dll", queDir \ "coredl2.dll")
EndIf
EndIf
EndSub