diff options
Diffstat (limited to 'UChecksum.pas')
| -rw-r--r-- | UChecksum.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/UChecksum.pas b/UChecksum.pas index 90eb029..b7ef508 100644 --- a/UChecksum.pas +++ b/UChecksum.pas @@ -201,11 +201,11 @@ var FD: TEngineFileDes; Error, Count, i, Start: integer; Buffer: Pointer; s: string; - Stat: PDataItemSL; + Stat: PDataItem; IsMD5: boolean; begin Result := False; - Stat := Engine.GetFileInfoSL(FileName); + Stat := Engine.GetFileInfo(FileName, True, True); if (Stat <> nil) and (Stat.Size > 128*1024) then begin i := integer(Application.MessageBox(Format(LANGTheFileSYouAreTryingToOpenIsQuiteBig, [StrToUTF8(ExtractFileName(FileName))]), [mbYes, mbNo], mbWarning, mbNone, mbNo)); if (i = integer(mbNo)) or (i = 251) then Exit; @@ -269,7 +269,7 @@ var Item: TFileListItem; ListItem: TGTKListItem; S1, S2: string; i: integer; - Stat: PDataItemSL; + Stat: PDataItem; begin TrimCRLFESC(s); if Length(s) < 1 then Exit; @@ -312,7 +312,7 @@ begin Item.Name := ExtractFileName(s2); Item.FullPath := IncludeTrailingPathDelimiter(Path) + s2; end; - Stat := Engine.GetFileInfoSL(Item.FullPath); + Stat := Engine.GetFileInfo(Item.FullPath, True, True); if Assigned(Stat) then begin Item.Size := Stat.Size; FreeDataItem(Stat); |
