Здравствуйте, Bingo!

Delphi - File - New - Other... - Service Application
Посмотрите, поиграйтесь... Вот только отлаживать из-под Delphi будет непросто, и если сделаете что-то непоправимое - может быть больно, вплоть до переустановки системы.

Здравствуйте, Bingo!
Вот вполне рабочий сервис.

Свойства сервиса:

DisplayName = My service
ErrorSeverity = esNormal
Name = MyService
OldCreateOrder = False
ServiceType = stWin32
StartType = stAuto
WaitHint = 5000

Сам юнит:

unit MyServiceUnit;

interface

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

type
TMyService = class(TService)
procedure ServiceExecute(Sender: TService);
procedure ServiceStart(Sender: TService; var Started: Boolean);
procedure ServiceStop(Sender: TService; var Stopped: Boolean);
procedure ServiceShutdown(Sender: TService);
private
public
function GetServiceController: TServiceController; override;
end;

var
MyService: TMyService;

implementation

{$R *.DFM}

function IsRunningInInstallMode : Boolean;
function FindSwitch(const Switch: string): Boolean;
begin
Result := FindCmdLineSwitch(Switch, [‘-‘, ‘/‘], True);
end;
begin
Result := FindSwitch(‘INSTALL‘) or FindSwitch(‘UNINSTALL‘);
end;

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
MyService.Controller(CtrlCode);
end;

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

procedure TMyService.ServiceExecute(Sender: TService);
begin
if not IsRunningInInstallMode then SvcMgr.Application.Initialize;
while not Terminated do ServiceThread.ProcessRequests(True);
end;

procedure TMyService.ServiceStart(Sender: TService; var Started: Boolean);
begin
Started := True;
ReportStatus();
end;

procedure TMyService.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
Stopped := True;
ReportStatus();
end;

procedure TMyService.ServiceShutdown(Sender: TService);
begin
Status := csStopped;
ReportStatus();
end;