1 files changed, 53 insertions, 0 deletions
diff --git a/sal/systools/win32/uwinapi/GetModuleFileNameExA.cpp b/sal/systools/win32/uwinapi/GetModuleFileNameExA.cpp
new file mode 100644
index 000000000000..b66ebf6dab70
--- /dev/null
+++ b/sal/systools/win32/uwinapi/GetModuleFileNameExA.cpp
@@ -0,0 +1,53 @@
+#include "macros.h"
+#ifdef _MSC_VER
+#pragma warning(push,1) // disable warnings within system headers
+#endif
+#include <psapi.h>
+#ifdef _MSC_VER
+#pragma warning(pop)
+#endif
+#include <tlhelp32.h>
+
+IMPLEMENT_THUNK( psapi, WINDOWS, DWORD, WINAPI, GetModuleFileNameExA, (HANDLE hProcess, HMODULE hModule, LPSTR lpFileName, DWORD nSize ) )
+{
+    DWORD   dwProcessId = 0;
+    DWORD   dwResult = 0;
+
+    if ( !hProcess || hProcess == GetCurrentProcess() || GetCurrentProcessId() == (dwProcessId = GetProcessId( hProcess )) )
+        return GetModuleFileNameA( hModule, lpFileName, nSize );
+
+    HANDLE  hSnapshot = CreateToolhelp32Snapshot( TH32CS_SNAPMODULE, dwProcessId );
+
+    if ( IsValidHandle( hSnapshot ) )
+    {
+        MODULEENTRY32   me;
+
+        me.dwSize = sizeof(me);
+        if ( Module32First( hSnapshot, &me ) )
+        {
+            BOOL    fFound = FALSE;
+
+            if ( NULL == hModule )
+                fFound = TRUE;
+            else do
+            {
+                fFound = (me.hModule == hModule);
+            } while ( !fFound && Module32Next( hSnapshot, &me ) );
+
+            if ( fFound )
+            {
+                dwResult = _tcslen( me.szExePath );
+
+                if ( dwResult > nSize && nSize > 0 )
+                    lpFileName[nSize -1] = 0;
+
+                _tcsncpy( lpFileName, me.szExePath, nSize );
+            }
+        }
+
+        CloseHandle( hSnapshot );
+    }
+
+    return dwResult;
+}
+