Always check GetFileInfoSL() result

This prevents crashes when file was deleted and included in selection for some operation.
Also fix minor memory leaks...

1 files changed, 13 insertions, 4 deletions

diff --git a/UChecksumDruid.pas b/UChecksumDruid.pas
index 34a2570..346dc3f 100644
--- a/UChecksumDruid.pas
+++ b/UChecksumDruid.pas
@@ -444,7 +444,10 @@ begin
   MaxSize := 0;
   for i := 0 to FileNames.Count - 1 do begin
     Stat := Engine.GetFileInfoSL(FileNames[i]);
-    if Assigned(Stat) then Inc(MaxSize, Stat.Size);
+    if Assigned(Stat) then begin
+      Inc(MaxSize, Stat.Size);
+      FreeDataItem(Stat);
+    end;
   end;
   Progress.Max := MaxSize;
   Progress.Value := 0;
@@ -466,7 +469,10 @@ begin
                  (i = FileNames.Count - 1) or SeparateFileCheckBox.Checked);
       end;
     except end;
-    if Assigned(Stat) then Progress.Value := LastValue + Stat.Size;
+    if Assigned(Stat) then begin
+      Progress.Value := LastValue + Stat.Size;
+      FreeDataItem(Stat);
+    end;
     Progress.Text := Format('%d %%', [Trunc(Progress.Fraction * 100)]);
     Application.ProcessMessages;
     CheckStop;
@@ -608,8 +614,11 @@ begin
               SysUtils.FormatDateTime('mm.dd.yyyy "at" hh:nn:ss', Now)]);
   for i := 0 to FileNames.Count - 1 do begin
     Stat := Engine.GetFileInfoSL(FileNames[i]);
-    if Assigned(Stat) then s := s + Format(';  %s %s %s'#13#10, [PadRightStr(IntToStr(Stat^.Size), 11),
-                                    FormatDate(Stat^.ModifyTime, True, True, 999, 999, 1, '%Y-%m-%d', '%k:%M.%S'), ExtractFileName(FileNames[i])]);
+    if Assigned(Stat) then begin
+      s := s + Format(';  %s %s %s'#13#10, [PadRightStr(IntToStr(Stat^.Size), 11),
+                      FormatDate(Stat^.ModifyTime, True, True, 999, 999, 1, '%Y-%m-%d', '%k:%M.%S'), ExtractFileName(FileNames[i])]);
+      FreeDataItem(Stat);
+    end;
   end;
   s := s + '; \----'#13#10'; '#13#10;