summaryrefslogtreecommitdiff
path: root/USearch.pas
diff options
context:
space:
mode:
Diffstat (limited to 'USearch.pas')
-rw-r--r--USearch.pas4
1 files changed, 2 insertions, 2 deletions
diff --git a/USearch.pas b/USearch.pas
index 1c319d9..763dd41 100644
--- a/USearch.pas
+++ b/USearch.pas
@@ -577,7 +577,7 @@ begin
DebugMsg(['Found plugin ''', Plugin.VFSName, ''', trying to open the archive ''', archive, '''']);
AEngine := TVFSEngine.Create(Plugin);
(AEngine as TVFSEngine).ArchiveMode := True;
- b := b and ((AEngine as TVFSEngine).VFSOpenEx(archive) = 0);
+ b := b and ((AEngine as TVFSEngine).VFSOpenEx(archive, nil, nil, nil, nil) = 0);
end;
end;
end else begin
@@ -953,7 +953,7 @@ begin
xEngine.ArchiveMode := True;
xEngine.SavePath := StartDir + FileName;
FEngine := xEngine;
- VFSOpenResult := (FEngine as TVFSEngine).VFSOpenEx(IncludeTrailingPathDelimiter(StartDir) + FileName);
+ VFSOpenResult := (FEngine as TVFSEngine).VFSOpenEx(IncludeTrailingPathDelimiter(StartDir) + FileName, nil, nil, nil, nil);
if (VFSOpenResult = 0) and (not CancelIt) then Rekurze('/');
FEngine := FEngine.ParentEngine;
if not (xEngine as TVFSEngine).VFSClose then DebugMsg(['Error closing the engine...']);