You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
61 lines
1.9 KiB
61 lines
1.9 KiB
Imports System.ComponentModel
|
|
Imports System.Configuration.Install
|
|
|
|
<RunInstaller(True)> Public Class ProjectInstaller
|
|
Inherits System.Configuration.Install.Installer
|
|
|
|
#Region " Component Designer generated code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
'This call is required by the Component Designer.
|
|
InitializeComponent()
|
|
|
|
'Add any initialization after the InitializeComponent() call
|
|
|
|
End Sub
|
|
|
|
'Installer overrides dispose to clean up the component list.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
'Required by the Component Designer
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'NOTE: The following procedure is required by the Component Designer
|
|
'It can be modified using the Component Designer.
|
|
'Do not modify it using the code editor.
|
|
Friend WithEvents ServiceProcessInstaller As System.ServiceProcess.ServiceProcessInstaller
|
|
Friend WithEvents ServiceInstaller As System.ServiceProcess.ServiceInstaller
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.ServiceProcessInstaller = New System.ServiceProcess.ServiceProcessInstaller
|
|
Me.ServiceInstaller = New System.ServiceProcess.ServiceInstaller
|
|
'
|
|
'ServiceProcessInstaller
|
|
'
|
|
Me.ServiceProcessInstaller.Account = System.ServiceProcess.ServiceAccount.LocalSystem
|
|
Me.ServiceProcessInstaller.Password = Nothing
|
|
Me.ServiceProcessInstaller.Username = Nothing
|
|
'
|
|
'ServiceInstaller
|
|
'
|
|
Me.ServiceInstaller.DisplayName = "EDKB10"
|
|
Me.ServiceInstaller.ServiceName = "BMSService"
|
|
'
|
|
'ProjectInstaller
|
|
'
|
|
Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller, Me.ServiceInstaller})
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
End Class
|