Changeset 10380 for trunk/src

Timestamp:

Jan 11, 2004, 1:12:34 PM (22 years ago)

Author:

sandervl

Message:

update

Location:

trunk/src/kernel32

Files:

• KERNEL32.DEF (modified) (2 diffs)
• kernel32dbg.def (modified) (2 diffs)
• wprocess.cpp (modified) (2 diffs)

trunk/src/kernel32/KERNEL32.DEF

@@ -1 @@
-; $Id: KERNEL32.DEF,v 1.160 2004-01-11 11:59:02 sandervl Exp $
+; $Id: KERNEL32.DEF,v 1.161 2004-01-11 12:12:32 sandervl Exp $
 
 ;Basis is Windows95 KERNEL32
@@ -1168 +1168 @@
     FindNextFileMultiA         = _FindNextFileMultiA@12           @1291 NONAME
 
+    _GetProcModuleFileNameA@12                                    @1295 NONAME
+
 ;Build number
     _Odin32GetBuildNumber@0                                       @1293 NONAME

trunk/src/kernel32/kernel32dbg.def

@@ -1 @@
-; $Id: kernel32dbg.def,v 1.35 2004-01-11 11:59:03 sandervl Exp $
+; $Id: kernel32dbg.def,v 1.36 2004-01-11 12:12:33 sandervl Exp $
 
 ;Basis is Windows95 KERNEL32
@@ -1168 +1168 @@
     FindNextFileMultiA         = _FindNextFileMultiA@12           @1291 NONAME
 
+    _GetProcModuleFileNameA@12                                    @1295 NONAME
+
 ;Build number
     _Odin32GetBuildNumber@0                                       @1293 NONAME

trunk/src/kernel32/wprocess.cpp

@@ -1 @@
-/* $Id: wprocess.cpp,v 1.189 2004-01-11 11:59:04 sandervl Exp $ */
+/* $Id: wprocess.cpp,v 1.190 2004-01-11 12:12:34 sandervl Exp $ */
 
 /*
@@ -2453 +2453 @@
 //******************************************************************************
 //******************************************************************************
+UINT WIN32API GetProcModuleFileNameA(ULONG lpvAddress, LPSTR lpszFileName, UINT cchFileNameMax)
+{
+    LPSTR lpszModuleName;
+    Win32ImageBase *image = NULL;
+    int len;
+
+    dprintf(("GetProcModuleFileNameA %x %x %d", lpvAddress, lpszFileName, cchFileNameMax));
+
+    if(WinExe && WinExe->insideModule(lpvAddress) && WinExe->insideModuleCode(lpvAddress)) {
+        image = WinExe;
+    }
+    else {
+        Win32DllBase *dll = Win32DllBase::findModuleByAddr(lpvAddress);
+        if(dll && dll->insideModuleCode(lpvAddress)) {
+            image = dll;
+        }
+    }
+    if(image == NULL) {
+        dprintf(("GetProcModuleFileNameA: address not found!!"));
+        return 0;
+    }
+    len = strlen(image->getFullPath());
+    if(len < cchFileNameMax) {
+        strcpy(lpszFileName, image->getFullPath());
+        return len+1; //??
+    }
+    else {
+        dprintf(("GetProcModuleFileNameA: destination string too small!!"));
+        return 0;
+    }
+}
+//******************************************************************************
+//******************************************************************************
 BOOL WIN32API DisableThreadLibraryCalls(HMODULE hModule)
 {