1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

unit test_srv_unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;

type
  TService1 = class(TService)
    procedure ServiceCreate(Sender: TObject);
    procedure ServiceExecute(Sender: TService);
    procedure ServiceStart(Sender: TService; var Started: Boolean);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  Service1: TService1;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
  ShowMessage(IntToStr(CtrlCode));
end;

function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TService1.ServiceCreate(Sender: TObject);
begin
  ShowMessage('Create');
end;

procedure TService1.ServiceExecute(Sender: TService);
begin
  ShowMessage('Execute');
end;

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
  ShowMessage('Start');
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

const
  SERVER_DISCONNECT = 3331;

procedure TMyDataModule.WebModuleCreate(Sender: TObject);
begin
  FEventLogger := TEventLogger.Create(ExtractFileName(ParamStr(0)));
end;

procedure TMyDataModule.WebModuleDestroy(Sender: TObject);
begin
  FreeAndNil(FEventLogger);
end;

  FEventLogger.LogMessage('Server stopped listening!', EVENTLOG_INFORMATION_TYPE, 1, SERVER_DISCONNECT);