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.EDKB14Installer = New System.ServiceProcess.ServiceProcessInstaller Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller ' 'EDKB14Installer ' Me.EDKB14Installer.Account = System.ServiceProcess.ServiceAccount.LocalSystem Me.EDKB14Installer.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceInstaller1}) Me.EDKB14Installer.Password = Nothing Me.EDKB14Installer.Username = Nothing ' 'ServiceInstaller1 ' Me.ServiceInstaller1.Description = "EDKB14WS - DSR-Verarbeitung " Me.ServiceInstaller1.DisplayName = "EDKB14WS" Me.ServiceInstaller1.ServiceName = "EDKB14WS" ' 'ProjectInstaller ' Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.EDKB14Installer}) End Sub Friend WithEvents EDKB14Installer As System.ServiceProcess.ServiceProcessInstaller Friend WithEvents ServiceInstaller1 As System.ServiceProcess.ServiceInstaller End Class