VFS: Password reset support

1 files changed, 10 insertions, 0 deletions

diff --git a/vfs/UVFSCore.pas b/vfs/UVFSCore.pas
index 8bba788..a514512 100644
--- a/vfs/UVFSCore.pas
+++ b/vfs/UVFSCore.pas
@@ -66,6 +66,7 @@ type
     FVFSGetServices: TVFSGetServices;
     FVFSGetPasswordRequired: TVFSGetPasswordRequired;
     FVFSSetCallbacks: TVFSSetCallbacks;
+    FVFSResetPassword: TVFSResetPassword;
   public
     ModuleHandle: Pointer;
     FullPath: string;  //  module path
@@ -143,6 +144,7 @@ type
     function TwoSameFiles(const Path1, Path2: string): boolean; override;
 
     function GetPasswordRequired: boolean;
+    procedure ResetPassword;
   published
     property Path: string read GetPath write SetPath;
     property BlockSize: Cardinal read GetBlockSize write SetBlockSize;
@@ -221,6 +223,7 @@ begin
   @FVFSGetServices := dlsym(ModuleHandle, 'VFSGetServices');
   @FVFSGetPasswordRequired := dlsym(ModuleHandle, 'VFSGetPasswordRequired');
   @FVFSSetCallbacks := dlsym(ModuleHandle, 'VFSSetCallbacks');
+  @FVFSResetPassword := dlsym(ModuleHandle, 'VFSResetPassword');
   //  Initialize the extensions list
   SetLength(Extensions, 0);
   SetLength(Services, 0);
@@ -921,6 +924,13 @@ begin
                                                    else Result := False;
 end;
 
+procedure TVFSEngine.ResetPassword;
+begin
+  if @FSourcePlugin.FVFSResetPassword <> nil then
+    FSourcePlugin.FVFSResetPassword(FGlobs);
+end;
+
+
 (********************************************************************************************************************************)
 (********************************************************************************************************************************)
 function GetBinaryPath: string;