diff options
| -rw-r--r-- | UChecksum.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/UChecksum.pas b/UChecksum.pas index 679d7ef..90eb029 100644 --- a/UChecksum.pas +++ b/UChecksum.pas @@ -436,8 +436,8 @@ begin ProgressBar.Text := Format('%d %%', [Trunc(ProgressBar.Fraction * 100)]); Application.ProcessMessages; until (Count < ChksumBlockSize) or Stop; - if Stop then Break; Engine.CloseFile(FD); + if Stop then Break; if not Data.IsMD5 then Data.Status := Ord(not (CRC = Data.CRC)) + 1 else begin MDFinal(MDContext, MDDigest); Data.Status := Ord(AnsiCompareText(Data.MD5, MDPrint(MDDigest)) <> 0) + 1; |