2 * Implementation of VERSION.DLL - Version Info access
4 * Copyright 1996,1997 Marcus Meissner
5 * Copyright 1997 David Cuthbert
6 * Copyright 1999 Ulrich Weigand
14 #include "wine/winestring.h"
17 #include "debugtools.h"
19 DEFAULT_DEBUG_CHANNEL(ver)
22 /******************************************************************************
24 * This function will print via dprintf[_]ver to stddeb debug info regarding
25 * the file info structure vffi.
26 * 15-Feb-1998 Dimitrie Paun (dimi@cs.toronto.edu)
27 * Added this function to clean up the code.
29 *****************************************************************************/
30 static void print_vffi_debug(VS_FIXEDFILEINFO *vffi)
32 dbg_decl_str(ver, 1024);
34 TRACE(" structversion=%u.%u, fileversion=%u.%u.%u.%u, productversion=%u.%u.%u.%u, flagmask=0x%lx, flags=%s%s%s%s%s%s\n",
35 HIWORD(vffi->dwStrucVersion),LOWORD(vffi->dwStrucVersion),
36 HIWORD(vffi->dwFileVersionMS),LOWORD(vffi->dwFileVersionMS),
37 HIWORD(vffi->dwFileVersionLS),LOWORD(vffi->dwFileVersionLS),
38 HIWORD(vffi->dwProductVersionMS),LOWORD(vffi->dwProductVersionMS),
39 HIWORD(vffi->dwProductVersionLS),LOWORD(vffi->dwProductVersionLS),
40 vffi->dwFileFlagsMask,
41 (vffi->dwFileFlags & VS_FF_DEBUG) ? "DEBUG," : "",
42 (vffi->dwFileFlags & VS_FF_PRERELEASE) ? "PRERELEASE," : "",
43 (vffi->dwFileFlags & VS_FF_PATCHED) ? "PATCHED," : "",
44 (vffi->dwFileFlags & VS_FF_PRIVATEBUILD) ? "PRIVATEBUILD," : "",
45 (vffi->dwFileFlags & VS_FF_INFOINFERRED) ? "INFOINFERRED," : "",
46 (vffi->dwFileFlags & VS_FF_SPECIALBUILD) ? "SPECIALBUILD," : ""
49 dsprintf(ver," OS=0x%x.0x%x ",
50 HIWORD(vffi->dwFileOS),
51 LOWORD(vffi->dwFileOS)
53 switch (vffi->dwFileOS&0xFFFF0000) {
54 case VOS_DOS:dsprintf(ver,"DOS,");break;
55 case VOS_OS216:dsprintf(ver,"OS/2-16,");break;
56 case VOS_OS232:dsprintf(ver,"OS/2-32,");break;
57 case VOS_NT:dsprintf(ver,"NT,");break;
60 dsprintf(ver,"UNKNOWN(0x%lx),",vffi->dwFileOS&0xFFFF0000);break;
62 switch (LOWORD(vffi->dwFileOS)) {
63 case VOS__BASE:dsprintf(ver,"BASE");break;
64 case VOS__WINDOWS16:dsprintf(ver,"WIN16");break;
65 case VOS__WINDOWS32:dsprintf(ver,"WIN32");break;
66 case VOS__PM16:dsprintf(ver,"PM16");break;
67 case VOS__PM32:dsprintf(ver,"PM32");break;
68 default:dsprintf(ver,"UNKNOWN(0x%x)",LOWORD(vffi->dwFileOS));break;
70 TRACE("(%s)\n", dbg_str(ver));
73 switch (vffi->dwFileType) {
76 dsprintf(ver,"filetype=Unknown(0x%lx)",vffi->dwFileType);
78 case VFT_APP:dsprintf(ver,"filetype=APP,");break;
79 case VFT_DLL:dsprintf(ver,"filetype=DLL,");break;
81 dsprintf(ver,"filetype=DRV,");
82 switch(vffi->dwFileSubtype) {
85 dsprintf(ver,"UNKNOWN(0x%lx)",vffi->dwFileSubtype);
87 case VFT2_DRV_PRINTER:
88 dsprintf(ver,"PRINTER");
90 case VFT2_DRV_KEYBOARD:
91 dsprintf(ver,"KEYBOARD");
93 case VFT2_DRV_LANGUAGE:
94 dsprintf(ver,"LANGUAGE");
96 case VFT2_DRV_DISPLAY:
97 dsprintf(ver,"DISPLAY");
100 dsprintf(ver,"MOUSE");
102 case VFT2_DRV_NETWORK:
103 dsprintf(ver,"NETWORK");
105 case VFT2_DRV_SYSTEM:
106 dsprintf(ver,"SYSTEM");
108 case VFT2_DRV_INSTALLABLE:
109 dsprintf(ver,"INSTALLABLE");
112 dsprintf(ver,"SOUND");
115 dsprintf(ver,"COMM");
117 case VFT2_DRV_INPUTMETHOD:
118 dsprintf(ver,"INPUTMETHOD");
123 dsprintf(ver,"filetype=FONT.");
124 switch (vffi->dwFileSubtype) {
126 dsprintf(ver,"UNKNOWN(0x%lx)",vffi->dwFileSubtype);
128 case VFT2_FONT_RASTER:dsprintf(ver,"RASTER");break;
129 case VFT2_FONT_VECTOR:dsprintf(ver,"VECTOR");break;
130 case VFT2_FONT_TRUETYPE:dsprintf(ver,"TRUETYPE");break;
133 case VFT_VXD:dsprintf(ver,"filetype=VXD");break;
134 case VFT_STATIC_LIB:dsprintf(ver,"filetype=STATIC_LIB");break;
136 TRACE("%s\n", dbg_str(ver));
138 TRACE(" filedata=0x%lx.0x%lx\n",
139 vffi->dwFileDateMS,vffi->dwFileDateLS);
143 /***********************************************************************
144 * Version Info Structure
152 #if 0 /* variable length structure */
156 VS_VERSION_INFO_STRUCT16 Children[];
158 } VS_VERSION_INFO_STRUCT16;
166 #if 0 /* variable length structure */
170 VS_VERSION_INFO_STRUCT32 Children[];
172 } VS_VERSION_INFO_STRUCT32;
174 #define VersionInfoIs16( ver ) \
175 ( ((VS_VERSION_INFO_STRUCT16 *)ver)->szKey[0] >= ' ' )
177 #define VersionInfo16_Value( ver ) \
178 (LPBYTE)( ((DWORD)((ver)->szKey) + (lstrlenA((ver)->szKey)+1) + 3) & ~3 )
179 #define VersionInfo32_Value( ver ) \
180 (LPBYTE)( ((DWORD)((ver)->szKey) + 2*(lstrlenW((ver)->szKey)+1) + 3) & ~3 )
182 #define VersionInfo16_Children( ver ) \
183 (VS_VERSION_INFO_STRUCT16 *)( VersionInfo16_Value( ver ) + \
184 ( ( (ver)->wValueLength + 3 ) & ~3 ) )
185 #define VersionInfo32_Children( ver ) \
186 (VS_VERSION_INFO_STRUCT32 *)( VersionInfo32_Value( ver ) + \
187 ( ( (ver)->wValueLength * \
188 ((ver)->bText? 2 : 1) + 3 ) & ~3 ) )
190 #define VersionInfo16_Next( ver ) \
191 (VS_VERSION_INFO_STRUCT16 *)( (LPBYTE)ver + (((ver)->wLength + 3) & ~3) )
192 #define VersionInfo32_Next( ver ) \
193 (VS_VERSION_INFO_STRUCT32 *)( (LPBYTE)ver + (((ver)->wLength + 3) & ~3) )
195 /***********************************************************************
196 * ConvertVersionInfo32To16 [internal]
198 void ConvertVersionInfo32To16( VS_VERSION_INFO_STRUCT32 *info32,
199 VS_VERSION_INFO_STRUCT16 *info16 )
201 /* Copy data onto local stack to prevent overwrites */
202 WORD wLength = info32->wLength;
203 WORD wValueLength = info32->wValueLength;
204 WORD bText = info32->bText;
205 LPBYTE lpValue = VersionInfo32_Value( info32 );
206 VS_VERSION_INFO_STRUCT32 *child32 = VersionInfo32_Children( info32 );
207 VS_VERSION_INFO_STRUCT16 *child16;
209 TRACE("Converting %p to %p\n", info32, info16 );
210 TRACE("wLength %d, wValueLength %d, bText %d, value %p, child %p\n",
211 wLength, wValueLength, bText, lpValue, child32 );
214 lstrcpyWtoA( info16->szKey, info32->szKey );
216 TRACE("Copied key from %p to %p: %s\n", info32->szKey, info16->szKey,
217 debugstr_a(info16->szKey) );
220 if ( wValueLength == 0 )
222 info16->wValueLength = 0;
223 TRACE("No value present\n" );
227 info16->wValueLength = lstrlenW( (LPCWSTR)lpValue ) + 1;
228 lstrcpyWtoA( VersionInfo16_Value( info16 ), (LPCWSTR)lpValue );
230 TRACE("Copied value from %p to %p: %s\n", lpValue,
231 VersionInfo16_Value( info16 ),
232 debugstr_a(VersionInfo16_Value( info16 )) );
236 info16->wValueLength = wValueLength;
237 memmove( VersionInfo16_Value( info16 ), lpValue, wValueLength );
239 TRACE("Copied value from %p to %p: %d bytes\n", lpValue,
240 VersionInfo16_Value( info16 ), wValueLength );
243 /* Convert children */
244 child16 = VersionInfo16_Children( info16 );
245 while ( (DWORD)child32 < (DWORD)info32 + wLength )
247 VS_VERSION_INFO_STRUCT32 *nextChild = VersionInfo32_Next( child32 );
249 ConvertVersionInfo32To16( child32, child16 );
251 child16 = VersionInfo16_Next( child16 );
256 info16->wLength = (DWORD)child16 - (DWORD)info16;
258 TRACE("Finished, length is %d (%p - %p)\n",
259 info16->wLength, info16, child16 );
263 /***********************************************************************
264 * GetFileVersionInfoSize32A [VERSION.2]
266 DWORD WINAPI GetFileVersionInfoSizeA( LPCSTR filename, LPDWORD handle )
268 VS_FIXEDFILEINFO *vffi;
269 DWORD len, ret, offset;
272 TRACE("(%s,%p)\n", debugstr_a(filename), handle );
274 len = GetFileResourceSize( filename,
275 MAKEINTRESOURCEA(VS_FILE_INFO),
276 MAKEINTRESOURCEA(VS_VERSION_INFO),
280 ret = GetFileResource( filename,
281 MAKEINTRESOURCEA(VS_FILE_INFO),
282 MAKEINTRESOURCEA(VS_VERSION_INFO),
283 offset, sizeof( buf ), buf );
286 if ( handle ) *handle = offset;
288 if ( VersionInfoIs16( buf ) )
289 vffi = (VS_FIXEDFILEINFO *)VersionInfo16_Value( (VS_VERSION_INFO_STRUCT16 *)buf );
291 vffi = (VS_FIXEDFILEINFO *)VersionInfo32_Value( (VS_VERSION_INFO_STRUCT32 *)buf );
293 if ( vffi->dwSignature != VS_FFI_SIGNATURE )
295 WARN("vffi->dwSignature is 0x%08lx, but not 0x%08lx!\n",
296 vffi->dwSignature, VS_FFI_SIGNATURE );
300 if ( ((VS_VERSION_INFO_STRUCT16 *)buf)->wLength < len )
301 len = ((VS_VERSION_INFO_STRUCT16 *)buf)->wLength;
304 print_vffi_debug( vffi );
309 /***********************************************************************
310 * GetFileVersionInfoSize32W [VERSION.3]
312 DWORD WINAPI GetFileVersionInfoSizeW( LPCWSTR filename, LPDWORD handle )
314 LPSTR fn = HEAP_strdupWtoA( GetProcessHeap(), 0, filename );
315 DWORD ret = GetFileVersionInfoSizeA( fn, handle );
316 HeapFree( GetProcessHeap(), 0, fn );
320 /***********************************************************************
321 * GetFileVersionInfo32A [VERSION.1]
323 DWORD WINAPI GetFileVersionInfoA( LPCSTR filename, DWORD handle,
324 DWORD datasize, LPVOID data )
326 TRACE("(%s,%ld,size=%ld,data=%p)\n",
327 debugstr_a(filename), handle, datasize, data );
329 if ( !GetFileResource( filename, MAKEINTRESOURCEA(VS_FILE_INFO),
330 MAKEINTRESOURCEA(VS_VERSION_INFO),
331 handle, datasize, data ) )
334 if ( datasize >= sizeof(VS_VERSION_INFO_STRUCT16)
335 && datasize >= ((VS_VERSION_INFO_STRUCT16 *)data)->wLength
336 && !VersionInfoIs16( data ) )
338 /* convert resource from PE format to NE format */
339 ConvertVersionInfo32To16( (VS_VERSION_INFO_STRUCT32 *)data,
340 (VS_VERSION_INFO_STRUCT16 *)data );
346 /***********************************************************************
347 * GetFileVersionInfo32W [VERSION.4]
349 DWORD WINAPI GetFileVersionInfoW( LPCWSTR filename, DWORD handle,
350 DWORD datasize, LPVOID data )
352 LPSTR fn = HEAP_strdupWtoA( GetProcessHeap(), 0, filename );
355 TRACE("(%s,%ld,size=%ld,data=%p)\n",
356 debugstr_a(fn), handle, datasize, data );
358 if ( !GetFileResource( fn, MAKEINTRESOURCEA(VS_FILE_INFO),
359 MAKEINTRESOURCEA(VS_VERSION_INFO),
360 handle, datasize, data ) )
363 else if ( datasize >= sizeof(VS_VERSION_INFO_STRUCT16)
364 && datasize >= ((VS_VERSION_INFO_STRUCT16 *)data)->wLength
365 && VersionInfoIs16( data ) )
367 ERR("Cannot access NE resource in %s\n", debugstr_a(fn) );
371 HeapFree( GetProcessHeap(), 0, fn );
376 /***********************************************************************
377 * VersionInfo16_FindChild [internal]
379 VS_VERSION_INFO_STRUCT16 *VersionInfo16_FindChild( VS_VERSION_INFO_STRUCT16 *info,
380 LPCSTR szKey, UINT cbKey )
382 VS_VERSION_INFO_STRUCT16 *child = VersionInfo16_Children( info );
384 while ( (DWORD)child < (DWORD)info + info->wLength )
386 if ( !lstrncmpiA( child->szKey, szKey, cbKey ) )
389 if (!(child->wLength)) return NULL;
390 child = VersionInfo16_Next( child );
396 /***********************************************************************
397 * VersionInfo32_FindChild [internal]
399 VS_VERSION_INFO_STRUCT32 *VersionInfo32_FindChild( VS_VERSION_INFO_STRUCT32 *info,
400 LPCWSTR szKey, UINT cbKey )
402 VS_VERSION_INFO_STRUCT32 *child = VersionInfo32_Children( info );
404 while ( (DWORD)child < (DWORD)info + info->wLength )
406 if ( !lstrncmpiW( child->szKey, szKey, cbKey ) )
409 child = VersionInfo32_Next( child );
415 /***********************************************************************
416 * VerQueryValue32A [VERSION.12]
418 DWORD WINAPI VerQueryValueA( LPVOID pBlock, LPCSTR lpSubBlock,
419 LPVOID *lplpBuffer, UINT *puLen )
421 VS_VERSION_INFO_STRUCT16 *info = (VS_VERSION_INFO_STRUCT16 *)pBlock;
422 if ( !VersionInfoIs16( info ) )
424 ERR("called on PE resource!\n" );
428 TRACE("(%p,%s,%p,%p)\n",
429 pBlock, debugstr_a(lpSubBlock), lplpBuffer, puLen );
431 while ( *lpSubBlock )
433 /* Find next path component */
435 for ( lpNextSlash = lpSubBlock; *lpNextSlash; lpNextSlash++ )
436 if ( *lpNextSlash == '\\' )
439 /* Skip empty components */
440 if ( lpNextSlash == lpSubBlock )
446 /* We have a non-empty component: search info for key */
447 info = VersionInfo16_FindChild( info, lpSubBlock, lpNextSlash-lpSubBlock );
448 if ( !info ) return FALSE;
450 /* Skip path component */
451 lpSubBlock = lpNextSlash;
455 *lplpBuffer = VersionInfo16_Value( info );
456 *puLen = info->wValueLength;
461 /***********************************************************************
462 * VerQueryValue32W [VERSION.13]
464 DWORD WINAPI VerQueryValueW( LPVOID pBlock, LPCWSTR lpSubBlock,
465 LPVOID *lplpBuffer, UINT *puLen )
467 VS_VERSION_INFO_STRUCT32 *info = (VS_VERSION_INFO_STRUCT32 *)pBlock;
468 if ( VersionInfoIs16( info ) )
470 ERR("called on NE resource!\n" );
474 TRACE("(%p,%s,%p,%p)\n",
475 pBlock, debugstr_w(lpSubBlock), lplpBuffer, puLen );
477 while ( *lpSubBlock )
479 /* Find next path component */
481 for ( lpNextSlash = lpSubBlock; *lpNextSlash; lpNextSlash++ )
482 if ( *lpNextSlash == '\\' )
485 /* Skip empty components */
486 if ( lpNextSlash == lpSubBlock )
492 /* We have a non-empty component: search info for key */
493 info = VersionInfo32_FindChild( info, lpSubBlock, lpNextSlash-lpSubBlock );
494 if ( !info ) return FALSE;
496 /* Skip path component */
497 lpSubBlock = lpNextSlash;
501 *lplpBuffer = VersionInfo32_Value( info );
502 *puLen = info->wValueLength;
507 extern LPCSTR WINE_GetLanguageName( UINT langid );
509 /***********************************************************************
510 * VerLanguageName32A [VERSION.9]
512 DWORD WINAPI VerLanguageNameA( UINT wLang, LPSTR szLang, UINT nSize )
518 TRACE("(%d,%p,%d)\n", wLang, szLang, nSize );
521 * First, check \System\CurrentControlSet\control\Nls\Locale\<langid>
526 "\\System\\CurrentControlSet\\control\\Nls\\Locale\\%08x",
529 result = RegQueryValueA( HKEY_LOCAL_MACHINE, buffer, szLang, (LPDWORD)&nSize );
530 if ( result == ERROR_SUCCESS || result == ERROR_MORE_DATA )
534 * If that fails, use the internal table
535 * (actually, Windows stores the names in a string table resource ...)
538 name = WINE_GetLanguageName( wLang );
539 lstrcpynA( szLang, name, nSize );
540 return lstrlenA( name );
543 /***********************************************************************
544 * VerLanguageName32W [VERSION.10]
546 DWORD WINAPI VerLanguageNameW( UINT wLang, LPWSTR szLang, UINT nSize )
553 TRACE("(%d,%p,%d)\n", wLang, szLang, nSize );
556 * First, check \System\CurrentControlSet\control\Nls\Locale\<langid>
561 "\\System\\CurrentControlSet\\control\\Nls\\Locale\\%08x",
564 keyname = HEAP_strdupAtoW( GetProcessHeap(), 0, buffer );
565 result = RegQueryValueW( HKEY_LOCAL_MACHINE, keyname, szLang, (LPDWORD)&nSize );
566 HeapFree( GetProcessHeap(), 0, keyname );
568 if ( result == ERROR_SUCCESS || result == ERROR_MORE_DATA )
572 * If that fails, use the internal table
573 * (actually, Windows stores the names in a string table resource ...)
576 name = WINE_GetLanguageName( wLang );
577 lstrcpynAtoW( szLang, name, nSize );
578 return lstrlenA( name );