- Richtig!
- Wenn du einen neuen Dienst erstellst hast du doch dieses Formular, da kannst du deinen Timer reinpacken...
- Das automatische Starten und Stoppen müsste so gehen:
Delphi-Quellcode:
procedure TService1.ServiceAfterInstall(Sender: TService);
begin
DoStart;
end;
procedure TService1.ServiceBeforeUninstall(Sender: TService);
begin
if not DoStop
then
raise Exception.Create('
Dienst konnte nicht beendet werden!');
end;