Danke für die Antwort das klingt ja schon mal gut!!!
habe jetzt bei dem ServiceStart Event folgendes gemacht:
Delphi-Quellcode:
procedure Ttest.ServiceStart(Sender: TService; var Started: Boolean);
begin
//Create LOGFILE
createlog('test','C:\Temp');
test_time.Create(nil);
test_time.Enabled := True;
test_time.Interval := 60000;
end;
Im on Execute habe ich jetzt folgendes:
Delphi-Quellcode:
procedure Ttest.ServiceExecute(Sender: TService);
begin
while not terminated do
begin
if test_time.OnTimer = onTimer then begin
// DO IT
end;
end;
end;
NATÜRLICH bekomme ich da einen Fehler, was habe ich falsch gemacht?
