以编程方式从.NET卸载Windows服务

Question

在Web上搜索信息后，我设法创建了一项服务，根据命令行，它可以安装或卸载自身，或者仅作为应用程序运行。

但是，卸载代码无法正常工作。

相关的代码：

Private Function UnInstallService(ByVal args As String(), ByRef errMsg As String) As Boolean 
    Dim si As New ServiceInfo 

    If (Not GetServiceInfo(args, si)) Then 
     errMsg = "Error..." 
     Return False 
    End If 

    If (Not IsServiceInstalled(si.Name)) Then 
     errMsg = "Error..." 
     Return False 
    End If 

    Try 
     Dim installer As ServiceProcessInstaller = GetServiceInstaller(si) 
     Dim stateSaver As IDictionary = New Hashtable 
     Try 
      installer.Uninstall(stateSaver) 
     Catch e As exception 
      errMsg = "Error..." 
      Return False 
     End Try 
    Catch e As exception 
     errMsg = "Error..." 
     Return False 
    End Try 
End Function 

Private Function GetServiceInstaller(ByVal si As ServiceInfo) As ServiceProcessInstaller 
    Dim installer As ServiceInstaller = New ServiceInstaller() 
    Dim pInstaller As New ServiceProcessInstaller 
    pInstaller.Context = New InstallContext("", si.CommandLine) 

    installer.Description = si.Description 
    installer.DisplayName = si.DisplayName 
    installer.ServiceName = si.Name 
    installer.StartType = ServiceStartMode.Automatic 

    If (si.Account = "LocalSystem") Then 
     pInstaller.Account = ServiceAccount.LocalSystem 
    ElseIf (si.Account = "LocalService") Then 
     pInstaller.Account = ServiceAccount.LocalService 
    ElseIf (si.Account = "NetworkService") Then 
     pInstaller.Account = ServiceAccount.NetworkService 
    Else 
     pInstaller.Account = ServiceAccount.User 
     pInstaller.Password = si.Password 
     pInstaller.Username = si.Account 
    End If 

    pInstaller.Context.Parameters("assemblypath") = si.FullPath 

    pInstaller.Installers.Add(installer) 
    installer.Parent = pInstaller 

    Return pInstaller 
End Function 

它抛出一个NullReferenceException在调用installer.Uninstall 安装的代码是完全一样的，除了检查是否已安装的服务，并调用installer.Install然后安装程序。提交而不是卸载。我通过它完全相同的参数。

有什么想法？

Answer 1

我发现这里的问题： http://social.msdn.microsoft.com/Forums/en-US/netfxbcl/thread/58505d7b-cb78-4486-88fc-9b86890664e0

问题就出在线路

installer.Uninstall(stateSaver) 

相反，应该是

installer.Uninstall(Nothing) 

Answer 2

您的代码似乎有点冗长，我要做的卸载是呼叫：

Dim path As String = Assembly.GetExecutingAssembly().Location 
ManagedInstallerClass.InstallHelper(New String() {"/u", path}) 

要安装所有我做的是：

Dim path As String = Assembly.GetExecutingAssembly().Location 
ManagedInstallerClass.InstallHelper(New String() {path}) 

然后我有在一些代码我的ProjectInstaller的构造函数设置用户名等

编辑：虽然请注意，ManagedInstallerClass的文档具有以下报价：This API支持.NET Framework基础结构，不能直接在您的代码中使用。
所以它可能不是面向未来，从自己的代码中使用它...