diff --git a/rtl/objpas/sysutils/sysutilh.inc b/rtl/objpas/sysutils/sysutilh.inc
index f309d04c75..afbc0ad669 100644
--- a/rtl/objpas/sysutils/sysutilh.inc
+++ b/rtl/objpas/sysutils/sysutilh.inc
@@ -237,7 +237,9 @@ Type
 
   function SafeLoadLibrary(const FileName: AnsiString;
     ErrorMode: DWord = {$ifdef windows}SEM_NOOPENFILEERRORBOX{$else windows}0{$endif windows}): HMODULE;
-
+    
+  function GetModuleName(Module: HMODULE): string;
+  
 { some packages and unit related constants for compatibility }
 
 const
diff --git a/rtl/objpas/sysutils/sysutils.inc b/rtl/objpas/sysutils/sysutils.inc
index 26cc58fda8..951ecff524 100644
--- a/rtl/objpas/sysutils/sysutils.inc
+++ b/rtl/objpas/sysutils/sysutils.inc
@@ -625,3 +625,14 @@ function SafeLoadLibrary(const FileName: AnsiString;
 {$endif}
     end;
   end;
+
+function GetModuleName(Module: HMODULE): string;
+
+begin
+{$ifdef MSWINDOWS}
+  SetLength(Result,MAX_PATH);
+  SetLength(Result,GetModuleFileName(Module, Pchar(Result),Length(Result)));
+{$ELSE}  
+  Result:='';
+{$ENDIF}  
+end;