Service & on Execute

[Aurelius]

Einen Timer benötigst du in meinen Augen nicht wirklich, http://www.delphipraxis.net/1098601-post28.html tuts eigentlich auch sehr gut.

Möchtest du es mit einem zur Laufzeit erzeugten Timer machen musst du es so ähnlich machen:

Delphi-Quellcode:

// ...
procedure Ttest.TueWas(Sender:TObject);
begin
 // das was du periodisch ausführen möchtest
end;

procedure Ttest.ServiceStart(Sender: TService; var Started: Boolean);
begin
  test_time := TTimer.Create(nil);
  test_time.Enabled := True;
  test_time.Interval := 60000;
  test_time.OnTimer := TueWas; //damit definierst du welche Prozedur der Timer ausführen soll
end;
// ...

Wenn du den Timer einfach auf dein Formular ziehst und die OnTimer-Prozedur über den OI einfügst kannst du dir das alles sparen.

Dennoch würde ich dir wie Deddy schon geschrieben hat zu weiteren Tutorials raten

//Edit: Kann gut sein (bzw. ist sogar sehr wahrscheinlich ), dass der Code noch nicht ganz korrekt ist. Ich habe schon ne ganze Weile nichts mehr mit Delphi gemacht und auch grad keins zur Hand. Korrekturen, Verbesserungsvorschläge ausdrücklich erwünscht!
//Edit2: Und da haben wir es schon Passt das jetzt so?