' Задать местоположение .reg файлов относительно экзешника сборки
Origin = GetEnvironmentVariable("TS_ORIGIN")
RegFilesPath = Left(Origin, InStrRev(Origin, "\") - 1)
InstallReg = RegFilesPath + "\FileForScript\install.reg"
UninstallReg = RegFilesPath + "\FileForScript\uninstall.reg"
' Добавление ключей в реестр при старте, из файла install.reg
Function OnFirstParentStart
id = ExecuteExternalProcess("regedit /s " & chr(34) & InstallReg & chr(34))
WaitForProcess id, 0
End Function
' Удаление из реестра по завершению программы, из файла uninstall.reg
Function OnFirstParentExit
id = ExecuteExternalProcess("regedit /s " & chr(34) & UninstallReg & chr(34))
WaitForProcess id, 0
End Function |
