From bc14644a5f7d42a9bd9c49b8aefdaf2b4db85410 Mon Sep 17 00:00:00 2001
From: Developer01 <developer01@didaloghe.onmicrosoft.com>
Date: Thu, 2 Oct 2025 17:10:19 +0200
Subject: [PATCH] Entfernen ProjctInstaller etc

---
 .../DDZUGFeRDService.vbproj                   |  2 ++
 Services.ZUGFeRDService/ProjectInstaller.vb   | 24 -------------------
 Services.ZUGFeRDService/ZUGFeRDService.vb     |  8 +++----
 3 files changed, 6 insertions(+), 28 deletions(-)
 delete mode 100644 Services.ZUGFeRDService/ProjectInstaller.vb

diff --git a/Services.ZUGFeRDService/DDZUGFeRDService.vbproj b/Services.ZUGFeRDService/DDZUGFeRDService.vbproj
index dcfe9c67..da34cadd 100644
--- a/Services.ZUGFeRDService/DDZUGFeRDService.vbproj
+++ b/Services.ZUGFeRDService/DDZUGFeRDService.vbproj
@@ -43,6 +43,8 @@
     <PackageReference Include="CoreWCF.Http" Version="1.8.0" />
     <PackageReference Include="CoreWCF.WebHttp" Version="1.8.0" />
     <PackageReference Include="CoreWCF.NetTcp" Version="1.8.0" />
+    <PackageReference Include="System.DirectoryServices" Version="9.0.9" />
+    <PackageReference Include="System.ServiceProcess.ServiceController" Version="9.0.9" />
   </ItemGroup>
  
 </Project>
\ No newline at end of file
diff --git a/Services.ZUGFeRDService/ProjectInstaller.vb b/Services.ZUGFeRDService/ProjectInstaller.vb
deleted file mode 100644
index 7d75b95f..00000000
--- a/Services.ZUGFeRDService/ProjectInstaller.vb
+++ /dev/null
@@ -1,24 +0,0 @@
-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.LocalSystem
-        }
-        service = New ServiceInstaller With {
-            .ServiceName = Constants.SERVICE_NAME,
-            .DisplayName = Constants.SERVICE_DISPLAY_NAME
-        }
-        Installers.Add(process)
-        Installers.Add(service)
-    End Sub
-End Class
diff --git a/Services.ZUGFeRDService/ZUGFeRDService.vb b/Services.ZUGFeRDService/ZUGFeRDService.vb
index 51949ff9..386e3d8e 100644
--- a/Services.ZUGFeRDService/ZUGFeRDService.vb
+++ b/Services.ZUGFeRDService/ZUGFeRDService.vb
@@ -9,10 +9,10 @@ Public Class ZUGFeRDService
     Private Logger As Logger
     Private ThreadRunner As ThreadRunner
 
-    Protected Sub OnStart(args() As String)
+    Protected Overrides Sub OnStart(args() As String)
         Try
-            LogConfig = New LogConfig(PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, "Digital Data", "DDZUGFeRDService")
-            Dim oConfig = New ConfigManager(Of Config)(LogConfig, My.Application.Info.DirectoryPath)
+            LogConfig = New LogConfig(PathType.CustomPath, Path.Combine(AppContext.BaseDirectory, "Log"), Nothing, "Digital Data", "DDZUGFeRDService")
+            Dim oConfig = New ConfigManager(Of Config)(LogConfig, AppContext.BaseDirectory)
             LogConfig.Debug = oConfig.Config.Debug
             Logger = LogConfig.GetLogger()
             Logger.Info($"{Constants.SERVICE_NAME} is starting.")
@@ -37,7 +37,7 @@ Public Class ZUGFeRDService
         End Try
     End Sub
 
-    Protected Sub OnStop()
+    Protected Overrides Sub OnStop()
         Logger.Info($"{Constants.SERVICE_NAME} is stopping.")
         ThreadRunner.Stop()
         Logger.Info($"{Constants.SERVICE_NAME} stopped.")