Dienste

[tobster]

Nichts, der Dienst macht nichts! Null, Nada, Niente, Nothing, Rei!

Moment, ich schreibe da wenigstens noch das Beep rein, dann könnte er Töne spucken, wenn er sich starten liese.

Delphi-Quellcode:

implementation

{$R *.DFM}

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

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

procedure TService1.DoTimer(Sender: TObject);
begin
 if not terminated then begin
  Beep;
 end;
end;

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
 Timer.Enabled := true;
 Started := true;
end;

procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
 Timer.Enabled := false;
 Stopped := true;
end;