[SOM]

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

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

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

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

Код:

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

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: Учимся пользоваться тегами, иначе последуют санкции!

[lmikle]

Вообще-то, после компиляции службу надо зарегистрировать - запустить с ключем /install. Вот тогда она появится.