48 lines
1.9 KiB
VB.net
48 lines
1.9 KiB
VB.net
<System.ComponentModel.RunInstaller(True)> Partial Class ProjectInstaller
|
||
Inherits System.Configuration.Install.Installer
|
||
|
||
'Installer 重写 Dispose，以清理组件列表。
|
||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||
Try
|
||
If disposing AndAlso components IsNot Nothing Then
|
||
components.Dispose()
|
||
End If
|
||
Finally
|
||
MyBase.Dispose(disposing)
|
||
End Try
|
||
End Sub
|
||
|
||
'组件设计器所必需的
|
||
Private components As System.ComponentModel.IContainer
|
||
|
||
'注意: 以下过程是组件设计器所必需的
|
||
'可使用组件设计器修改它。
|
||
'不要使用代码编辑器修改它。
|
||
<System.Diagnostics.DebuggerStepThrough()>
|
||
Private Sub InitializeComponent()
|
||
Me.ServiceProcessInstaller1 = New System.ServiceProcess.ServiceProcessInstaller()
|
||
Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller()
|
||
'
|
||
'ServiceProcessInstaller1
|
||
'
|
||
Me.ServiceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalSystem
|
||
Me.ServiceProcessInstaller1.Password = Nothing
|
||
Me.ServiceProcessInstaller1.Username = Nothing
|
||
'
|
||
'ServiceInstaller1
|
||
'
|
||
Me.ServiceInstaller1.Description = "AUTS_UpdateService"
|
||
Me.ServiceInstaller1.DisplayName = "AUTS_UpdateService"
|
||
Me.ServiceInstaller1.ServiceName = "AUTS_UpdateService"
|
||
Me.ServiceInstaller1.StartType = System.ServiceProcess.ServiceStartMode.Automatic
|
||
'
|
||
'ProjectInstaller
|
||
'
|
||
Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1})
|
||
|
||
End Sub
|
||
Private WithEvents ServiceInstaller1 As ServiceProcess.ServiceInstaller
|
||
Private WithEvents ServiceProcessInstaller1 As ServiceProcess.ServiceProcessInstaller
|
||
End Class
|