Мое хакерское решение - изменить файл ProjectInstaller.vb
, чтобы он выдал команду, чтобы остановить и удалить службу, а затем немного сделал паузу. Вероятно, не такой аккуратный с точки зрения установки, как изменение файла msi
, но гораздо более читаемый / логичный для тех, кто наследует мой код.
Обратите внимание, что бит RunCommandCom
явно взломан из Как запускать команды DOS / CMD / Command Prompt из VB.NET?
Используя этот метод в сочетании с кодом из Как автоматически запустить службу после установки? вы можете получить желаемую возможность установки службы - Служба, которая устанавливается и запускается автоматически и перезаписывает текущую службу если есть один.
'This works. It leaves the MSI in a state that tells you to reboot the PC, but you really don't need to.
Private Sub ProjectInstaller_BeforeInstall(sender As Object, e As System.Configuration.Install.InstallEventArgs) Handles Me.BeforeInstall
Dim sEchoMessage As String = String.Empty
sEchoMessage &= " & ECHO ****************** Please be patient *******************************"
sEchoMessage &= " & ECHO Pausing to stop and delete the previous version of the following service:"
sEchoMessage &= " & ECHO " & ServiceInstaller1.ServiceName
sEchoMessage &= " & ECHO -------------------------------------------------------------------------------"
sEchoMessage &= " & ECHO After install is complete, you may see a message that says you need to reboot."
sEchoMessage &= " & ECHO You may IGNORE this message - The service will be installed and running."
sEchoMessage &= " & ECHO There is NO Reboot required."
sEchoMessage &= " & ECHO *******************************************************************************"
RunCommandCom("sc stop " & ServiceInstaller1.ServiceName & " & sc delete " & ServiceInstaller1.ServiceName & sEchoMessage, 15000)
End Sub
Private Sub RunCommandCom(command As String, mSecSleepAfterExecution As Integer)
Using p As Process = New Process()
Dim pi As ProcessStartInfo = New ProcessStartInfo()
pi.Arguments = " /K " + command
pi.FileName = "cmd.exe"
p.StartInfo = pi
p.Start()
System.Threading.Thread.Sleep(mSecSleepAfterExecution)
p.CloseMainWindow()
End Using
End Sub