Setup restarts/auto repairs automatically if application makes any change in its folder and if user clicks on application shortcut next time.

Solution to this is to disable auto repair by modifying msi file.

Addthe property DISABLEADVTSHORTCUTS (case sensitive) to the Property table with a value of 1.

Progamatically, you can do the same as below and add post build script.

cscript //nologo "[Path]\UpdateScript.vbs" "$(BuiltOuputPath)" "INSERT INTO Property(Property, Value) VALUES (‘DISABLEADVTSHORTCUTS’, ’1′)

 

‘ Windows Installer utility to execute SQL statements against an installer database ‘ For use with Windows Scripting Host, CScript.exe or WScript.exe ‘ Copyright (c) 1999-2001, Microsoft Corporation ‘ Demonstrates the script-driven database queries and updates ‘ Option Explicit Const msiOpenDatabaseModeReadOnly = 0 Const msiOpenDatabaseModeTransact = 1 Dim argNum, argCount:argCount = Wscript.Arguments.Count If (argCount < 2) Then     Wscript.Echo "Windows Installer utility to execute SQL queries against an installer database." &_         vbLf & " The 1st argument specifies the path to the MSI database, relative or full path" &_         vbLf & " Subsequent arguments specify SQL queries to execute – must be in double quotes" &_         vbLf & " SELECT queries will display the rows of the result list specified in the query" &_         vbLf & " Binary data columns selected by a query will not be displayed" &_         vblf &_         vblf & "Copyright (C) Microsoft Corporation, 1999-2001.  All rights reserved."     Wscript.Quit 1 End If ‘ Scan arguments for valid SQL keyword and to determine if any update operations Dim openMode : openMode = msiOpenDatabaseModeReadOnly For argNum = 1 To argCount – 1     Dim keyword : keyword = Wscript.Arguments(argNum)     Dim keywordLen : keywordLen = InStr(1, keyword, " ", vbTextCompare)     If (keywordLen) Then keyword = UCase(Left(keyword, keywordLen – 1))     If InStr(1, "UPDATE INSERT DELETE CREATE ALTER DROP", keyword, vbTextCompare) Then         openMode = msiOpenDatabaseModeTransact     ElseIf keyword <> "SELECT" Then         Fail "Invalid SQL statement type: " & keyword     End If Next ‘ Connect to Windows installer object On Error Resume Next Dim installer : Set installer = Nothing Set installer = Wscript.CreateObject("WindowsInstaller.Installer") : CheckError ‘ Open database Dim databasePath:databasePath = Wscript.Arguments(0) Dim database : Set database = installer.OpenDatabase(databasePath, openMode) : CheckError ‘ Process SQL statements Dim query, view, record, message, rowData, columnCount, delim, column For argNum = 1 To argCount – 1     query = Wscript.Arguments(argNum)     Set view = database.OpenView(query) : CheckError     view.Execute : CheckError     If Ucase(Left(query, 6)) = "SELECT" Then         Do             Set record = view.Fetch             If record Is Nothing Then Exit Do             columnCount = record.FieldCount             rowData = Empty             delim = "  "             For column = 1 To columnCount                 If column = columnCount Then delim = vbLf                 rowData = rowData & record.StringData(column) & delim             Next             message = message & rowData         Loop     End If Next If openMode = msiOpenDatabaseModeTransact Then database.Commit If Not IsEmpty(message) Then Wscript.Echo message Wscript.Quit 0 Sub CheckError     Dim message, errRec     If Err = 0 Then Exit Sub     message = Err.Source & " " & Hex(Err) & ": " & Err.Description     If Not installer Is Nothing Then         Set errRec = installer.LastErrorRecord         If Not errRec Is Nothing Then message = message & vbLf & errRec.FormatText     End If     Fail message End Sub Sub Fail(message)     Wscript.Echo message     Wscript.Quit 2 End Sub

Advertisement