summaryrefslogtreecommitdiff
path: root/UChecksum.pas
diff options
context:
space:
mode:
Diffstat (limited to 'UChecksum.pas')
-rw-r--r--UChecksum.pas8
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);