Delphi Протоколирование даты и времени запуска приложения

[Lomanu4]

В результате той же папке, в которой и расположен исполняемый файл, будет создан файл work.log, в котором сохранятся дата и
время каждого запуска приложения.

var FileName : string;
F : TextFile;
begin
FileName:=ExtractFilePath(Application.ExeName)+'work.log';
AssignFile(F,FileName);
try
if FileExists(FileName)=false then {проверка наличия файла FileName}
Rewrite(F) {файла с именем FileName нет — создаем}
else
Append(F); {файл с именем FileName есть — добавляем новую строку}
WriteLn(F, FormatDateTime('Запуск dd.mm.yy в hh:mm:ss', Now));
finally
CloseFile(F);
end;
end;

 

[Seregami]

Благодарю