Rough GTK3 port

1 files changed, 14 insertions, 0 deletions

diff --git a/vfs/UVFSCore.pas b/vfs/UVFSCore.pas
index b6c516d..216cd5e 100644
--- a/vfs/UVFSCore.pas
+++ b/vfs/UVFSCore.pas
@@ -173,6 +173,7 @@ type
 
 
 procedure DoInitPlugins;
+function LookupVFSPlugin(const ModuleID: string): TVFSPlugin;
 
 var PluginList: TList;
 
@@ -1006,6 +1007,19 @@ end;
 
 (********************************************************************************************************************************)
 (********************************************************************************************************************************)
+function LookupVFSPlugin(const ModuleID: string): TVFSPlugin;
+var i: integer;
+begin
+  Result := nil;
+  for i := 0 to PluginList.Count - 1 do
+    if Trim(TVFSPlugin(PluginList[i]).ModuleID) = ModuleID then begin
+      Result := TVFSPlugin(PluginList[i]);
+      Break;
+    end;
+end;
+
+(********************************************************************************************************************************)
+(********************************************************************************************************************************)
 function GetBinaryPath: string;
 var i: integer;
     Buf: array[0..1024] of char;