Browse Source

* Add EnumModules for Delphi compatibility

Michaël Van Canneyt 1 year ago
parent
commit
87a37e70ee
2 changed files with 13 additions and 0 deletions
  1. 5 0
      rtl/inc/dynlib.inc
  2. 8 0
      rtl/inc/dynlibh.inc

+ 5 - 0
rtl/inc/dynlib.inc

@@ -212,3 +212,8 @@ begin
 end;
 end;
 
 
 {$endif DISABLE_NO_DYNLIBS_MANAGER}
 {$endif DISABLE_NO_DYNLIBS_MANAGER}
+
+procedure EnumModules(Func: TEnumModuleFuncLW; Data: Pointer); 
+begin
+  Func(HInstance,Data);
+end;

+ 8 - 0
rtl/inc/dynlibh.inc

@@ -66,3 +66,11 @@ Procedure GetDynLibsManager (Out Manager : TDynLibsManager);
 Procedure SetDynLibsManager (Const New : TDynLibsManager);
 Procedure SetDynLibsManager (Const New : TDynLibsManager);
 Procedure SetDynLibsManager (Const New : TDynLibsManager; out Old: TDynLibsManager);
 Procedure SetDynLibsManager (Const New : TDynLibsManager; out Old: TDynLibsManager);
 
 
+// Delphi compatibility, needs to be expanded when packages arrive.
+Type
+  TEnumModuleFuncLW = function (HInstance: THandle; Data: Pointer): Boolean;
+  
+procedure EnumModules(Func: TEnumModuleFuncLW; Data: Pointer); 
+
+  
+