diff options
Diffstat (limited to 'vfs')
| -rw-r--r-- | vfs/UVFSCore.pas | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/vfs/UVFSCore.pas b/vfs/UVFSCore.pas index aaa3b49..7c85b02 100644 --- a/vfs/UVFSCore.pas +++ b/vfs/UVFSCore.pas @@ -89,12 +89,14 @@ type FSourcePlugin: TVFSPlugin; FBlockSize: Cardinal; BreakProcessingKind: integer; + function GetPluginID: string; public ArchiveMode: boolean; Password: string; PasswordUsed: boolean; RemoveFileOnClose: string; OpenedFromQuickConnect: boolean; + CustomPluginIDSave: string; constructor Create(SourcePlugin: TVFSPlugin); function VFSOpenURI(URI: string; AskQuestionCallback: PVFSAskQuestionCallback; AskPasswordCallback: PVFSAskPasswordCallback; ProgressCallback: PVFSProgressCallback; CallbackData: Pointer): boolean; function VFSOpenEx(OpenFile: string; AskQuestionCallback: PVFSAskQuestionCallback; AskPasswordCallback: PVFSAskPasswordCallback; ProgressCallback: PVFSProgressCallback; CallbackData: Pointer): TVFSResult; @@ -152,6 +154,7 @@ type published property Path: string read GetPath write SetPath; property BlockSize: Cardinal read GetBlockSize write SetBlockSize; + property PluginID: string read GetPluginID; end; @@ -304,6 +307,7 @@ begin PasswordUsed := False; RemoveFileOnClose := ''; OpenedFromQuickConnect := False; + CustomPluginIDSave := ''; if @FSourcePlugin.FVFSNew <> nil then FGlobs := FSourcePlugin.FVFSNew(@VFSLogFunc); end; @@ -955,6 +959,13 @@ begin FSourcePlugin.FVFSResetPassword(FGlobs); end; +(********************************************************************************************************************************) +(********************************************************************************************************************************) +function TVFSEngine.GetPluginID: string; +begin + if FSourcePlugin <> nil then Result := FSourcePlugin.VFSName + else Result := ''; +end; (********************************************************************************************************************************) (********************************************************************************************************************************) |
