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.

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
service: ERROR;
success: Integer;

begin
service := TChilkatService.Create(Self);

//  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';

success := service.Install();
if (success <> 1) then
  begin
    ShowMessage('Failed to install service.');
    Memo1.Lines.Add(service.LastErrorText);

  end;

ShowMessage('Windows Service Installed!');
end;