2
0
Эх сурвалжийг харах

* Add EnumModules for Delphi compatibility

Michaël Van Canneyt 1 жил өмнө
parent
commit
87a37e70ee

+ 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); 
+
+  
+