Service startet nicht

[Cici]

Zitat von Bummi:

kommentier mal versuchsweise den Code in ServiceExecute aus ...

Kein Effekt.
Oncreate müßte vor Execute ausgeführt werden.

Auch eine Variante ohne alle anderen events ausser ein Beep in "oncreate" verändert nichts.

Code:

unit ServMain;

interface

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

type
  TService4 = class(TService)
    procedure ServiceCreate(Sender: TObject);
    procedure ServiceExecute(Sender: TService);
  private
    { Private-Deklarationen }
  public
    function GetServiceController: TServiceController; override;
    { Public-Deklarationen }
  end;
var
  Service4: TService4;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.DFM}

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

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

procedure TService4.ServiceCreate(Sender: TObject);
begin
  Beep
end;

procedure TService4.ServiceExecute(Sender: TService);
begin
  Beep; sleep(100); Beep;
end;

initialization
 Sleep(10000);
end.