0
關於Windows服務的快速問題,我已經爲Windows服務添加了一個安裝項目,並添加了一個自定義對話框,其中有4個文本字段,但我的問題是如何獲取這些信息/變量?Windows服務安裝項目自定義對話框 - 我如何獲得變量?
我還爲windows服務添加了一個安裝程序,並且隨後添加了自定義對話框的安裝項目。
這些信息就像數據庫連接字符串,等等 - 只是字符串值。
這是我的「項目安裝程序」的代碼。如果你想看到它,安裝程序項目添加爲Windows系列。
Imports System
Imports System.ComponentModel
Imports System.Configuration.Install
Imports System.ServiceProcess
Imports System.Runtime.InteropServices
Public Class ProjectInstaller
Public Sub New()
MyBase.New()
'This call is required by the Component Designer.
InitializeComponent()
My.Settings.TestSetting = Context.Parameters.Item("PathValue")
#If DEBUG Then
Dim ServicesToRun As ServiceBase()
ServicesToRun = New ServiceBase() {New tdsCheckService()}
ServiceBase.Run(ServicesToRun)
#Else
Dim listener As New tdsCheckService()
listener.Start()
#End If
End Sub
Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
MyBase.Install(stateSaver)
Dim regsrv As New RegistrationServices
regsrv.RegisterAssembly(MyBase.GetType().Assembly, AssemblyRegistrationFlags.SetCodeBase)
End Sub
Public Overrides Sub Uninstall(ByVal savedState As System.Collections.IDictionary)
MyBase.Uninstall(savedState)
Dim regsrv As New RegistrationServices
regsrv.UnregisterAssembly(MyBase.GetType().Assembly)
End Sub
Private Sub ServiceProcessInstaller1_AfterInstall(sender As Object, e As InstallEventArgs) Handles ServiceProcessInstaller1.AfterInstall
End Sub
Private Sub ServiceInstaller1_AfterInstall(sender As Object, e As InstallEventArgs) Handles ServiceInstaller1.AfterInstall
End Sub
End Class
我可以在代碼中做到這一點嗎? – Mathias
應該有一個安裝事件。我們基本上有一個與服務關聯的配置文件。在這裏我們有一些連接字符串。在安裝時,提示用戶輸入這些連接字符串。然後我們讀取它們,加密它們並將它們彈回配置文件。 –
是的,但我有2「afterinstall」事件..我應該使用哪一個? – Mathias