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 überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
|
|
<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
|
|
|
|
'Wird vom Komponenten-Designer benötigt.
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
|
|
'Das Bearbeiten ist mit dem Komponenten-Designer möglich.
|
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
|
<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.DelayedAutoStart = True
|
|
Me.ServiceInstaller.DisplayName = "Digital Data Job Runner"
|
|
Me.ServiceInstaller.ServiceName = "DDJobRunner"
|
|
'
|
|
'ProjectInstaller
|
|
'
|
|
Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller, Me.ServiceInstaller})
|
|
|
|
End Sub
|
|
|
|
Friend WithEvents ServiceProcessInstaller As ServiceProcess.ServiceProcessInstaller
|
|
Friend WithEvents ServiceInstaller As ServiceProcess.ServiceInstaller
|
|
End Class
|