home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic .NET - Read Less - Learn More
/
Visual_Basic.NET_Read_Less_Learn_More_Richard_Bowman_Visual_2002.iso
/
Resources
/
Code
/
Ch11-InstallWindowsService
/
ServiceInstall.vb
< prev
Wrap
Text File
|
2001-09-02
|
571b
|
21 lines
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