diff options
Diffstat (limited to 'USearch.pas')
| -rw-r--r-- | USearch.pas | 4 |
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...']); |
