1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| program TimeLogger;
{$APPTYPE CONSOLE}
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes , sysutils ,baseunix
{ you can add units after this };
var
TextF: TextFile;
begin
try
if fpfork()<>0 then begin
exit;
end;
repeat
AssignFile(TextF, 'log.txt');
if FileExists('log.txt') then
Append(TextF)
else
Rewrite(TextF);
Writeln(TextF, DateTimeToStr(Now));
CloseFile(TextF);
Sleep(10000);
until false;
except
on e:exception do
Writeln(TextF, DateTimeToStr(Now)+': erreur:'+e.message);
end;
end. |
Partager