# ace_ttn_start.mscr
# launch tomtom and keep active, set volume to max

# initialize values
ErrorLevel("syntax")
ttn_exe = "Interner Speicher\Programme\Navigator\TomTom Navigator.exe"
ttn_ttl = "TomTom Navigator"
intrval = 2000

# turn off connection established notification
mem_conn = RegRead("HKCU","ControlPanel\Notifications\{8ddf46 e7-56ed-4750-9e58-afc6ce486d03}","options")
RegWriteDWord("HKCU","ControlPanel\Notifications\{ 8ddf46e7-56ed-4750-9e58-afc6ce486d03}","options",0)

# adjust volume
mem_vol = RegRead("HKCU","ControlPanel\Volume","Volume") * 255 / 4294967295
SetVolume(255)

# launch tomtom
Run(ttn_exe)
WaitFor(ttn_ttl, 30)

# keep tomtom active
While(WndExists(ttn_ttl))
If (NOT WndActive(ttn_ttl))
Show(ttn_ttl)
EndIf
Sleep(intrval)
EndWhile

# replace changed values
RegWriteDWord("HKCU","ControlPanel\Notifications\{ 8ddf46e7-56ed-4750-9e58-afc6ce486d03}","options",mem_conn)
SetVolume(mem_vol)