DEADSOFTWARE

ignore more log writing/creating errors
authorKetmar Dark <ketmar@ketmar.no-ip.org>
Fri, 15 Apr 2016 11:57:23 +0000 (14:57 +0300)
committerKetmar Dark <ketmar@ketmar.no-ip.org>
Fri, 15 Apr 2016 11:57:23 +0000 (14:57 +0300)
src/engine/e_log.pas

index d45f86efd10cb1d10e453a7d754ecb9d7a4f8e49..e82bfb41149a0533db9173023bafbfe3cce249d2 100644 (file)
@@ -68,8 +68,12 @@ procedure e_InitLog(fFileName: String; fWriteMode: TWriteMode);
 begin
  FileName := fFileName;
  if fWriteMode = WM_NEWFILE then
-  if FileExists(FileName) then
-   DeleteFile(FileName);
+ begin
+   try
+     if FileExists(FileName) then DeleteFile(FileName);
+   except // sorry
+   end;
+ end;
  FirstRecord := True;
 end;