В установщике приложения
' Test eventual mark, settings in the registry.
if GetSetting("MyInstallerApp","Startup","BeenHere",0) = 1 then
MsgBox "This installer was ran once already... first run the un-installer."
End ' or some other code to properly exit the installer
EndIf
Call SaveSetting ("MyInstallerApp","Startup", "BeenHere", 1) 'leave a mark for future
В приложении удаления (или в параметре «удаления» установщика)
' Allow future Installer to run again
Call DeleteSetting("MyInstallerApp", "Startup")