浏览代码

* Add EnumModules for Delphi compatibility

Michaël Van Canneyt 1 年之前
父节点
当前提交
87a37e70ee
共有 2 个文件被更改,包括 13 次插入0 次删除
  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;
 
 {$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; 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); 
+
+  
+