[SOM]

Delphi 7, XP-SP2+
Делаю File \ New \ Other \ Service Application
В DisplayName пишем например 1111
В Allow Pause - False
Компилируем

В Службах ничего нет с именем 1111

Что может быть?

Служба не запускается

Код:

unit Unit1;

interface

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

type
  TService1 = class(TService)
  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);
end;

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

end.

Admin: Учимся пользоваться тегами, иначе последуют санкции!