Kannst du bitte mal
Delphi-Quellcode:
procedure TService2.ServiceStart(Sender: TService; var Started: Boolean);
begin
while(Started)do
try
AssignFile(txt_logfile, 'sensor.log');
Append(txt_logfile);
DateSeparator:='/';
Writeln(txt_logfile, FormatDateTime('yyyy/mm/dd hh:nn:ss',Now));
Flush(txt_logfile);
CloseFile(txt_logfile);
except
end;
end;
...probieren. Wenn ich richtig lag mit meiner obigen Vermutung, sollte es danach funktionieren. Allerdings fehlt mir noch der Überblick wo der Control-Handler ist.
Edit: ein "end;" fehlte