/trunk/Windows/CheckSumToolsWindows.iss |
16,7 → 16,7 |
VersionInfoCompany=ViaThinkSoft |
VersionInfoCopyright=© Copyright 2017 - 2021 ViaThinkSoft. |
VersionInfoDescription=Checksum Tools Setup |
VersionInfoTextVersion=1.0.0.0 |
VersionInfoTextVersion=1.0.0.1 |
VersionInfoVersion=1.0 |
Compression=zip/9 |
ChangesAssociations=yes |
/trunk/Windows/Unit3.pas |
171,7 → 171,7 |
not SameText(ExtractFileExt(TestFileName), '.md5') and |
not SameText(TestFileName, 'Thumbs.db') then |
begin |
IstChecksum := CalcFileCRC32(IncludeTrailingPathDelimiter(ADirectory) + TestFilename); |
IstChecksum := csman.SingleFileChecksum(IncludeTrailingPathDelimiter(ADirectory) + TestFilename); |
Memo4.Lines.Add(csman.MergeLine(TestFileName, IstChecksum)); |
end; |
end; |