home *** CD-ROM | disk | FTP | other *** search
- Imports System.ServiceProcess
- Imports System.Configuration.Install
- Imports System.ComponentModel
-
- <RunInstaller(True)> _
- Public Class ServiceInstall
- Inherits Installer
-
- Private servInstall As New ServiceInstaller()
- Private procInstall As New ServiceProcessInstaller()
-
- Sub New()
- procInstall.Account = ServiceAccount.LocalSystem
- servInstall.ServiceName = "Service1"
- servInstall.StartType = ServiceStartMode.Automatic
-
- Installers.Add(procInstall)
- Installers.Add(servInstall)
- End Sub
- End Class
-