mormot日志

uses
SynLog;

if log = nil then // 日志
begin
log := TSynLog.Add;
log.Family.DestinationPath := ExeVersion.ProgramFilePath + '\logs';
log.Family.Level := [sllInfo, sllError, sllLastError, sllException, sllExceptionOS, sllFail, sllSQL];
log.Family.AutoFlushTimeOut := 60;
end;