Dienste

[tobster]

Ich will mich zur Zeit ein wenig mit der Programmierung von Diensten beschäftigen, Das funktioniert auch ganz gut mit der Eingebauten Klasse TService. Mein Problem allerdings liegt schon gänzlich am Anfang. Registriert bekomme ich den Service noch, aber beim Starten über den Dienste-Manager hagelts gleich einen Fehler vom selbigen "Fehler 5: Zugriff verweigert".

Da bin ich ein wenig baff, das der von mir geschriebene Service mit meinem höchst eigenen lokalen Admin nicht starten darf!

Kann mich einer von euch auf die Lösung stubsen?

[Luckie]

Tja, wenn du uns jetzt noch verrätst, was der Dienst macht... :?

[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;

[tobster]

Hab herausgefunden, warums sichs nicht starten lässt. Warum auch immer, aber ich muss im DiensteMgr einen Nutzer zum Starten angeben, dessen Rechte wohl verwendet werden, mit dem Systemaccount gehts nicht. Kein Plan warum, auf meinem Noti gehts auch ohne den Nutzereintrag.