From a67cd9193a6ac04d34c92c1a817fb0f5e44af30f Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Tue, 28 Oct 2008 16:51:52 +0100 Subject: Password callback support from all VFS modules Cleanup, remove unused dialogs --- USearch.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'USearch.pas') 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...']); -- cgit v1.2.3