Imports System
Imports System.Collections
Imports System.Configuration.Install
Imports System.ServiceProcess
Imports System.ComponentModel
 
Public Class ProjectInstaller
 
    Inherits Installer
    Private processInstaller As ServiceProcessInstaller
 
    Public Sub New()
        MyBase.New()
 
        'Dieser Aufruf ist für den Komponenten-Designer erforderlich.
        InitializeComponent()
 
        'Initialisierungscode nach dem Aufruf von InitializeComponent hinzufügen
        processInstaller = New ServiceProcessInstaller()
        ServiceInstaller1 = New ServiceInstaller()
 
        processInstaller.Account = ServiceAccount.User
        processInstaller.Username = "sepp"
        processInstaller.Password = "1234"
 
        ServiceInstaller1.StartType = ServiceStartMode.Automatic
 
        ServiceInstaller1.ServiceName = "AOI_KVP"
 
        Installers.Add(ServiceInstaller1)
        Installers.Add(processInstaller)
 
    End Sub
 
End Class