jj: ZUGFeRD

DDZUGFeRDService/ProjectInstaller.vb

@@ -0,0 +1,24 @@
+Imports System.ComponentModel
+Imports System.Configuration.Install
+Imports System.ServiceProcess
+
+<RunInstaller(True)>
+Public Class ProjectInstaller
+    Inherits Installer
+
+    Private ReadOnly process As ServiceProcessInstaller
+    Private ReadOnly components As IContainer
+    Private ReadOnly service As ServiceInstaller
+
+    Public Sub New()
+        process = New ServiceProcessInstaller With {
+            .Account = ServiceAccount.NetworkService
+        }
+        service = New ServiceInstaller With {
+            .ServiceName = My.Settings.SERVICE_NAME,
+            .DisplayName = My.Settings.SERVICE_DISPLAY_NAME
+        }
+        Installers.Add(process)
+        Installers.Add(service)
+    End Sub
+End Class