Partial Class ProjectInstaller Inherits System.Configuration.Install.Installer 'Installer überschreibt den Löschvorgang zum Bereinigen der Komponentenliste. _ 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. 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