Anatoly Lyutin : kernel32: Implement IsWow64Process.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: f773e148b096baa58ff4bb79ca0bd8f958b26c9b
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=f773e148b096baa58ff4bb79ca...

Author: Anatoly Lyutin 
Date:   Fri Mar 21 18:36:01 2008 +0300

kernel32: Implement IsWow64Process.

---

dlls/kernel32/process.c |   13 +++++++++++--
 1 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/dlls/kernel32/process.c b/dlls/kernel32/process.c
index b3bf535..054fbc0 100644
--- a/dlls/kernel32/process.c
+++ b/dlls/kernel32/process.c
@@ -2928,8 +2928,17 @@ DWORD WINAPI RegisterServiceProcess(DWORD dwProcessId, DWORD dwType)
  */
 BOOL WINAPI IsWow64Process(HANDLE hProcess, PBOOL Wow64Process)
 {
-    FIXME("(%p %p) stub!\n", hProcess, Wow64Process);
-    *Wow64Process = FALSE;
+    ULONG pbi;
+    NTSTATUS status;
+
+    status = NtQueryInformationProcess( hProcess, ProcessWow64Information, &pbi, sizeof(pbi), NULL );
+
+    if (status != STATUS_SUCCESS)
+    {
+        SetLastError( RtlNtStatusToDosError( status ) );
+        return FALSE;
+    }
+    *Wow64Process = (pbi != 0);
     return TRUE;
 }