From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Fri, 15 Apr 2016 11:57:23 +0000 (+0300)
Subject: ignore more log writing/creating errors
X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=commitdiff_plain;h=7fe9b42bd8a5a8fdbc3b22d87f1a14cd438a9e11

ignore more log writing/creating errors
---

diff --git a/src/engine/e_log.pas b/src/engine/e_log.pas
index d45f86e..e82bfb4 100644
--- a/src/engine/e_log.pas
+++ b/src/engine/e_log.pas
@@ -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;