Password callback support from all VFS modulesv0.6.54

Cleanup, remove unused dialogs

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...']);