Показать сообщение отдельно
Старый 01.04.2009, 10:59   #66
_pirat_
Житель Клуба
 
Авто: Outlander XL 2.4 MIVEC
Сообщений: 158
По умолчанию Re: Все о настройке Navitel

в общем я победил.

folder = SystemPath("ScriptPath")
load_file = folder \ "Load.exe"
exe_file = folder \ "Navitel.exe"
RegWriteString("HKLM","\Explorer\Shell Folders","My Documents","\Storage Card\My Documents")
reg_file = folder \ "storage\settings.reg"
exe_file_load = folder \ "Load.exe"
exe_file = folder \ "Navitel.exe"
reg_key = "HKEY_CURRENT_USER\Software\CNT"
RunWait(folder \ "Regedit.exe", "-s " & """" & reg_file & """")
RunWait(exe_file_load)
RunWait(exe_file)
RunWait(folder \ "TaskMgr.exe", "/regxpkey " & reg_file & " [" & reg_key & "]")
WriteFile(reg_file, Replace(ReadFile(reg_file, "unicode-prefix"), "Windows Registry Editor Version 5.00", "REGEDIT4"), FALSE)
XCopy(folder \"storage\GPS Tracks and Waypoints\*.*","\My Documents\GPS Tracks and Waypoints",True,True)
Run(load_file)
RunWait(exe_file)
XCopy("\My Documents\GPS Tracks and Waypoints\*.*", folder \"storage\GPS Tracks and Waypoints",True,True)
PlaySound( folder \ "endcopy.wav")
folderBrowser_Folder=\Storage Card\Navitel\Atlas\
name=Ekburg
path=\Storage Card\Navitel\Atlas\Ekburg

не претиндую на полную правильность - но Все работает!
Проблема осталась только одна: не сохраняет отключение звука, т.е. отключаю звук, захожу снова - он включен
_pirat_ вне форума   Вверх Ответить с цитированием
Пользователь сказал cпасибо: