[Delphi] Правильно организовать работу сервиса

[Человек_Борща]

Я бы и рад отладить, да пишу на xe2 где удаленный отладчик не работает(точнее список процессов на аттача).

Думаю я знаю в чем проблема. Вы используете TTimer который работает с системным оконным сообщением WM_TIMER. А я использую мультимедийный таймер:

unit clMMTimerClass;

interface

uses
Winapi.Windows,
System.Classes,
Winapi.MMSystem;

type
TMMTimer = class
private
FInterval: integer;
FID: UINT;
FOnTimer: TNotifyEvent;
function GetEnabled: boolean;
procedure SetEnabled(Value: boolean);
procedure SetInterval(Value: integer);
protected
procedure DoTimer; virtual;
public
property Interval: integer read FInterval write SetInterval;
property Enabled: boolean read GetEnabled write SetEnabled;
property OnTimer: TNotifyEvent read FOnTimer write FOnTimer;
end;

implementation

{ TMMTimer }

procedure MMCallBack(uTimerID, uMsg: UINT; dwUser, dw1, dw2: DWORD); stdcall;
begin
if dwUser <> 0 then
TMMTimer(dwUser).DoTimer;
end;

procedure TMMTimer.DoTimer;
begin
if Assigned(FOnTimer) then
FOnTimer(Self);
end;

function TMMTimer.GetEnabled: boolean;
begin
Result := FID <> 0;
end;

procedure TMMTimer.SetEnabled(Value: boolean);
begin
if Enabled <> Value then
begin
if FID <> 0 then
begin
timeKillEvent(FID);
FID := 0;
end
else
begin
FID := timeSetEvent(FInterval, 0, @MMCallBack, DWORD(Self),
TIME_CALLBACK_FUNCTION or TIME_PERIODIC or TIME_KILL_SYNCHRONOUS);
end;
end;
end;

procedure TMMTimer.SetInterval(Value: integer);
var
oldEnabled: boolean;
begin
if FInterval <> Value then
begin
oldEnabled := Enabled;
Enabled := false;
FInterval := Value;
Enabled := oldEnabled;
end;
end;

end.

[Krok27]

C твоим таймером тоже работает

unit MainUnit;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.SvcMgr, Vcl.Dialogs, Vcl.ExtCtrls, TimerUnit;

type
  TSysInfo = class(TService)
    procedure ServiceBeforeInstall(Sender: TService);
    procedure ServiceCreate(Sender: TObject);
    procedure ServiceDestroy(Sender: TObject);
    procedure ServiceExecute(Sender: TService);
    procedure ServiceShutdown(Sender: TService);
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
  private

    { Private declarations }
    fTimer: TTimer;
    fmmTimer: TMMTimer;
    procedure OnfTimer(Sender: TObject);
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  SysInfo: TSysInfo;

implementation

{$R *.DFM}



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

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

procedure TSysInfo.ServiceBeforeInstall(Sender: TService);
begin
//
end;

procedure TSysInfo.ServiceCreate(Sender: TObject);
begin
//
end;

procedure TSysInfo.ServiceDestroy(Sender: TObject);
begin
//
end;

procedure TSysInfo.ServiceExecute(Sender: TService);
begin

while not Terminated do
  begin
    Sleep(100);
    ServiceThread.ProcessRequests(False );
  end;
end;

procedure TSysInfo.ServiceShutdown(Sender: TService);
begin
//
end;

procedure TSysInfo.ServiceStart(Sender: TService; var Started: Boolean);
begin
fmmTimer := TMMTimer.Create;
fmmTimer.Interval := 5000;
fmmTimer.OnTimer := OnfTimer;
fmmTimer.Enabled := True;

//fTimer := TTimer.Create(Owner);
//fTimer.Interval := 5000;
//fTimer.OnTimer := OnfTimer;
//fTimer.Enabled := true;
//Started := true;
end;

procedure TSysInfo.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
FreeAndNil(fmmTimer);
end;

procedure TSysInfo.OnfTimer(Sender: TObject);

begin


  MessageBox(0,'Текст из сервиса', 'Сообщение',  MB_OK+MB_SERVICE_NOTIFICATION);
end;


end.

[Человек_Борща]

даже, когда закрыаешь сообщение?

Сервис не интерактивный.

[Krok27]

Даже, когда закрываешь. Сервис не интерактивный. Работает. Каждые 5 сек. - сообщение.
Дело во флаге

 MessageBox(0,'Текст из сервиса', 'Сообщение',  MB_OK+MB_SERVICE_NOTIFICATION);