Install a Windows Service

Install a Windows Service.

Note:This software is available as a pre-release.

Download the Chilkat Service ActiveX here: ChilkatService.zip
Unzip and register with regsvr32.

Dim service As New ChilkatService

'  To install a Windows service, three bits of information
'  are needed:
'  1) The EXE filepath of the service executable.
'  2) The Service name.
'  3) The Service display name.

service.ExeFilePath = "c:\MyService\MyService.exe"
service.ServiceName = "MyService"
service.DisplayName = "My Cool Service"

Dim success As Long
success = service.Install()
If (success <> 1) Then
    MsgBox "Failed to install service."
    Text1.Text = Text1.Text & service.LastErrorText & vbCrLf
    Exit Sub
End If

MsgBox "Windows Service Installed!"