kernel32: Make GetModuleHandleA hotpatchable.
[wine] / dlls / kernel32 / version.c
1 /*
2  * Windows and DOS version functions
3  *
4  * Copyright 1997 Marcus Meissner
5  * Copyright 1998 Patrik Stridvall
6  * Copyright 1998, 2003 Andreas Mohr
7  * Copyright 1997, 2003 Alexandre Julliard
8  *
9  * This library is free software; you can redistribute it and/or
10  * modify it under the terms of the GNU Lesser General Public
11  * License as published by the Free Software Foundation; either
12  * version 2.1 of the License, or (at your option) any later version.
13  *
14  * This library is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17  * Lesser General Public License for more details.
18  *
19  * You should have received a copy of the GNU Lesser General Public
20  * License along with this library; if not, write to the Free Software
21  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22  */
23
24 #include "config.h"
25 #include "wine/port.h"
26
27 #include <string.h>
28 #include <stdlib.h>
29 #include <stdarg.h>
30 #include <stdio.h>
31 #include "ntstatus.h"
32 #define WIN32_NO_STATUS
33 #include "windef.h"
34 #include "winbase.h"
35 #include "wingdi.h"
36 #include "winuser.h"
37 #include "winternl.h"
38 #include "winerror.h"
39 #include "wine/unicode.h"
40 #include "wine/debug.h"
41
42 WINE_DEFAULT_DEBUG_CHANNEL(ver);
43
44
45 /***********************************************************************
46  *         GetVersion   (KERNEL32.@)
47  *
48  * Win31   0x80000a03
49  * Win95   0xc0000004
50  * Win98   0xc0000a04
51  * WinME   0xc0005a04
52  * NT351   0x04213303
53  * NT4     0x05650004
54  * Win2000 0x08930005
55  * WinXP   0x0a280105
56  */
57 DWORD WINAPI GetVersion(void)
58 {
59     DWORD result = MAKELONG( MAKEWORD( NtCurrentTeb()->Peb->OSMajorVersion,
60                                        NtCurrentTeb()->Peb->OSMinorVersion ),
61                              (NtCurrentTeb()->Peb->OSPlatformId ^ 2) << 14 );
62     if (NtCurrentTeb()->Peb->OSPlatformId == VER_PLATFORM_WIN32_NT)
63         result |= LOWORD(NtCurrentTeb()->Peb->OSBuildNumber) << 16;
64     return result;
65 }
66
67
68 /***********************************************************************
69  *         GetVersionExA   (KERNEL32.@)
70  */
71 BOOL WINAPI GetVersionExA(OSVERSIONINFOA *v)
72 {
73     RTL_OSVERSIONINFOEXW infoW;
74
75     if (v->dwOSVersionInfoSize != sizeof(OSVERSIONINFOA) &&
76         v->dwOSVersionInfoSize != sizeof(OSVERSIONINFOEXA))
77     {
78         WARN("wrong OSVERSIONINFO size from app (got: %d)\n",
79                         v->dwOSVersionInfoSize );
80         SetLastError(ERROR_INSUFFICIENT_BUFFER);
81         return FALSE;
82     }
83
84     infoW.dwOSVersionInfoSize = sizeof(infoW);
85     if (RtlGetVersion( &infoW ) != STATUS_SUCCESS) return FALSE;
86
87     v->dwMajorVersion = infoW.dwMajorVersion;
88     v->dwMinorVersion = infoW.dwMinorVersion;
89     v->dwBuildNumber  = infoW.dwBuildNumber;
90     v->dwPlatformId   = infoW.dwPlatformId;
91     WideCharToMultiByte( CP_ACP, 0, infoW.szCSDVersion, -1,
92                          v->szCSDVersion, sizeof(v->szCSDVersion), NULL, NULL );
93
94     if(v->dwOSVersionInfoSize == sizeof(OSVERSIONINFOEXA))
95     {
96         LPOSVERSIONINFOEXA vex = (LPOSVERSIONINFOEXA) v;
97         vex->wServicePackMajor = infoW.wServicePackMajor;
98         vex->wServicePackMinor = infoW.wServicePackMinor;
99         vex->wSuiteMask        = infoW.wSuiteMask;
100         vex->wProductType      = infoW.wProductType;
101     }
102     return TRUE;
103 }
104
105
106 /***********************************************************************
107  *         GetVersionExW   (KERNEL32.@)
108  */
109 BOOL WINAPI GetVersionExW( OSVERSIONINFOW *info )
110 {
111     if (info->dwOSVersionInfoSize != sizeof(OSVERSIONINFOW) &&
112         info->dwOSVersionInfoSize != sizeof(OSVERSIONINFOEXW))
113     {
114         WARN("wrong OSVERSIONINFO size from app (got: %d)\n",
115                         info->dwOSVersionInfoSize);
116         return FALSE;
117     }
118     return (RtlGetVersion( (RTL_OSVERSIONINFOEXW *)info ) == STATUS_SUCCESS);
119 }
120
121
122 /******************************************************************************
123  *        VerifyVersionInfoA   (KERNEL32.@)
124  */
125 BOOL WINAPI VerifyVersionInfoA( LPOSVERSIONINFOEXA lpVersionInfo, DWORD dwTypeMask,
126                                 DWORDLONG dwlConditionMask)
127 {
128     OSVERSIONINFOEXW verW;
129
130     verW.dwOSVersionInfoSize = sizeof(OSVERSIONINFOEXW);
131     verW.dwMajorVersion = lpVersionInfo->dwMajorVersion;
132     verW.dwMinorVersion = lpVersionInfo->dwMinorVersion;
133     verW.dwBuildNumber = lpVersionInfo->dwBuildNumber;
134     verW.dwPlatformId = lpVersionInfo->dwPlatformId;
135     verW.wServicePackMajor = lpVersionInfo->wServicePackMajor;
136     verW.wServicePackMinor = lpVersionInfo->wServicePackMinor;
137     verW.wSuiteMask = lpVersionInfo->wSuiteMask;
138     verW.wProductType = lpVersionInfo->wProductType;
139     verW.wReserved = lpVersionInfo->wReserved;
140
141     return VerifyVersionInfoW(&verW, dwTypeMask, dwlConditionMask);
142 }
143
144
145 /******************************************************************************
146  *        VerifyVersionInfoW   (KERNEL32.@)
147  */
148 BOOL WINAPI VerifyVersionInfoW( LPOSVERSIONINFOEXW lpVersionInfo, DWORD dwTypeMask,
149                                 DWORDLONG dwlConditionMask)
150 {
151     switch(RtlVerifyVersionInfo( lpVersionInfo, dwTypeMask, dwlConditionMask ))
152     {
153     case STATUS_INVALID_PARAMETER:
154         SetLastError( ERROR_BAD_ARGUMENTS );
155         return FALSE;
156     case STATUS_REVISION_MISMATCH:
157         SetLastError( ERROR_OLD_WIN_VERSION );
158         return FALSE;
159     }
160     return TRUE;
161 }
162
163 /***********************************************************************
164  *           TermsrvAppInstallMode       (KERNEL32.@)
165  *
166  * Find out whether the terminal server is in INSTALL or EXECUTE mode.
167  */
168 BOOL WINAPI TermsrvAppInstallMode(void)
169 {
170     FIXME("stub\n");
171     return FALSE;
172 }
173
174 /***********************************************************************
175  *           SetTermsrvAppInstallMode       (KERNEL32.@)
176  *
177  * This function is said to switch between the INSTALL (TRUE) or
178  * EXECUTE (FALSE) terminal server modes.
179  *
180  * This function always returns zero on WinXP Home so it's probably
181  * safe to return that value in most cases. However, if a terminal
182  * server is running it will probably return something else.
183  */
184 DWORD WINAPI SetTermsrvAppInstallMode(BOOL bInstallMode)
185 {
186     FIXME("(%d): stub\n", bInstallMode);
187     return 0;
188 }
189
190 /***********************************************************************
191  *           GetProductInfo       (KERNEL32.@)
192  *
193  * Gives info about the current Windows product type, in a format compatible
194  * with the given Windows version
195  *
196  * Returns TRUE if the input is valid, FALSE otherwise
197  */
198 BOOL WINAPI GetProductInfo(DWORD dwOSMajorVersion, DWORD dwOSMinorVersion, DWORD dwSpMajorVersion,
199                            DWORD dwSpMinorVersion, PDWORD pdwReturnedProductType)
200 {
201     return RtlGetProductInfo(dwOSMajorVersion, dwOSMinorVersion,
202                              dwSpMajorVersion, dwSpMinorVersion, pdwReturnedProductType);
203 }