25 lines
720 B
VB.net
25 lines
720 B
VB.net
Imports System.ComponentModel
|
|
Imports System.Configuration.Install
|
|
Imports System.ServiceProcess
|
|
|
|
<RunInstaller(True)>
|
|
Public Class ProjectInstaller
|
|
Inherits Installer
|
|
|
|
Private ReadOnly process As ServiceProcessInstaller
|
|
Private ReadOnly components As IContainer
|
|
Private ReadOnly service As ServiceInstaller
|
|
|
|
Public Sub New()
|
|
process = New ServiceProcessInstaller With {
|
|
.Account = ServiceAccount.NetworkService
|
|
}
|
|
service = New ServiceInstaller With {
|
|
.ServiceName = My.Settings.SERVICE_NAME,
|
|
.DisplayName = My.Settings.SERVICE_DISPLAY_NAME
|
|
}
|
|
Installers.Add(process)
|
|
Installers.Add(service)
|
|
End Sub
|
|
End Class
|