kernel32: Implemented GetErrorMode().

dlls/kernel32/kernel32.spec

@@ -513,7 +513,7 @@
 @ stdcall GetEnvironmentStringsW()
 @ stdcall GetEnvironmentVariableA(str ptr long)
 @ stdcall GetEnvironmentVariableW(wstr ptr long)
-@ stub GetErrorMode
+@ stdcall GetErrorMode()
 @ stdcall GetExitCodeProcess(long ptr)
 @ stdcall GetExitCodeThread(long ptr)
 @ stdcall GetExpandedNameA(str ptr)

dlls/kernel32/process.c

@@ -2238,6 +2238,13 @@ UINT WINAPI SetErrorMode( UINT mode )
     return old;
 }
 
+/***********************************************************************
+ *           GetErrorMode   (KERNEL32.@)
+ */
+UINT WINAPI GetErrorMode( void )
+{
+    return process_error_mode;
+}
 
 /**********************************************************************
  * TlsAlloc             [KERNEL32.@]

include/winbase.h

@@ -1604,6 +1604,7 @@ WINBASEAPI LPWSTR      WINAPI GetEnvironmentStringsW(void);
 WINBASEAPI DWORD       WINAPI GetEnvironmentVariableA(LPCSTR,LPSTR,DWORD);
 WINBASEAPI DWORD       WINAPI GetEnvironmentVariableW(LPCWSTR,LPWSTR,DWORD);
 #define                       GetEnvironmentVariable WINELIB_NAME_AW(GetEnvironmentVariable)
+WINBASEAPI UINT        WINAPI GetErrorMode(void);
 WINBASEAPI BOOL        WINAPI GetExitCodeProcess(HANDLE,LPDWORD);
 WINBASEAPI BOOL        WINAPI GetExitCodeThread(HANDLE,LPDWORD);
 WINBASEAPI DWORD       WINAPI GetFileAttributesA(LPCSTR);