Service und TTimer

[nahpets]

Zitat von Digielm:

das hier passiert in meinem Log

06.01.2009 10:59:41 Start OnStart
06.01.2009 10:59:41 Dienst gestartet
06.01.2009 10:59:41 Ende OnStart

Langsam kapiere ich nix mehr, wo kommt denn bitte das Dienst gestartet her?

Delphi-Quellcode:

procedure TService1.OnStart(args: array of string); 
begin 
  addlogtext('Start OnStart'); 
  Try 
    Mainform := TMainform.Create(self); 
  Except 
    on e : Exception Do addlogtext(e.Message); 
  end; 
  addlogtext('Vor Button1Click');
  Try
    MainForm.Button1Click(Nil);
  Except 
    on e : Exception Do addlogtext('Fehler in Button1Click: ' + e.Message); 
  end; 
  addlogtext('Hinter Button1Click');
  Try
    MainForm.Adresstimer.Enabled  := false;
    MainForm.Adresstimer.Interval := 1000;
    MainForm.Adresstimer.Enabled  := true;
  Except
    on e : Eception do addlogtext('Fehler beim Aktivieren des Timers: ' + e.Message);
  end; 
  addlogtext('Ende OnStart'); 
  // Eine Sekunde hinter dem 'Ende OnStart' sollte im Log ein Eintrag 'Starte abgleich' stehen.
  // Wenn nicht, weiß ich auch nicht mehr weiter.
end;