You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
67 lines
2.5 KiB
67 lines
2.5 KiB
Imports System.ComponentModel
|
|
Imports System.Configuration.Install
|
|
|
|
<RunInstaller(True)> Public Class ProjectInstaller
|
|
Inherits System.Configuration.Install.Installer
|
|
|
|
#Region " Vom Component Designer generierter Code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
' Dieser Aufruf ist für den Komponenten-Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
|
|
End Sub
|
|
|
|
'Installer überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
' Für Komponenten-Designer erforderlich
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'HINWEIS: Die folgende Prozedur ist für den Komponenten-Designer erforderlich
|
|
'Sie kann mit dem Komponenten-Designer modifiziert werden.
|
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
|
Friend WithEvents ServiceProcessInstaller1 As System.ServiceProcess.ServiceProcessInstaller
|
|
Friend WithEvents ServiceInstaller1 As System.ServiceProcess.ServiceInstaller
|
|
<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.LocalService
|
|
Me.ServiceProcessInstaller1.Password = "galant"
|
|
Me.ServiceProcessInstaller1.Username = "PG1\geuggis"
|
|
'
|
|
'ServiceInstaller1
|
|
'
|
|
Me.ServiceInstaller1.ServiceName = "EDKB07WS"
|
|
'
|
|
'ProjectInstaller
|
|
'
|
|
Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1})
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private Sub ServiceInstaller1_AfterInstall(ByVal sender As System.Object, ByVal e As System.Configuration.Install.InstallEventArgs) Handles ServiceInstaller1.AfterInstall
|
|
|
|
End Sub
|
|
|
|
Private Sub ServiceProcessInstaller1_AfterInstall(ByVal sender As System.Object, ByVal e As System.Configuration.Install.InstallEventArgs) Handles ServiceProcessInstaller1.AfterInstall
|
|
|
|
End Sub
|
|
End Class
|