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