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/winuser16.h"
15 #include "wine/unicode.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 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",
33 HIWORD(vffi->dwStrucVersion),LOWORD(vffi->dwStrucVersion),
34 HIWORD(vffi->dwFileVersionMS),LOWORD(vffi->dwFileVersionMS),
35 HIWORD(vffi->dwFileVersionLS),LOWORD(vffi->dwFileVersionLS),
36 HIWORD(vffi->dwProductVersionMS),LOWORD(vffi->dwProductVersionMS),
37 HIWORD(vffi->dwProductVersionLS),LOWORD(vffi->dwProductVersionLS),
38 vffi->dwFileFlagsMask,
39 (vffi->dwFileFlags & VS_FF_DEBUG) ? "DEBUG," : "",
40 (vffi->dwFileFlags & VS_FF_PRERELEASE) ? "PRERELEASE," : "",
41 (vffi->dwFileFlags & VS_FF_PATCHED) ? "PATCHED," : "",
42 (vffi->dwFileFlags & VS_FF_PRIVATEBUILD) ? "PRIVATEBUILD," : "",
43 (vffi->dwFileFlags & VS_FF_INFOINFERRED) ? "INFOINFERRED," : "",
44 (vffi->dwFileFlags & VS_FF_SPECIALBUILD) ? "SPECIALBUILD," : ""
48 DPRINTF(" OS=0x%x.0x%x ",
49 HIWORD(vffi->dwFileOS),
50 LOWORD(vffi->dwFileOS)
52 switch (vffi->dwFileOS&0xFFFF0000) {
53 case VOS_DOS:DPRINTF("DOS,");break;
54 case VOS_OS216:DPRINTF("OS/2-16,");break;
55 case VOS_OS232:DPRINTF("OS/2-32,");break;
56 case VOS_NT:DPRINTF("NT,");break;
59 DPRINTF("UNKNOWN(0x%lx),",vffi->dwFileOS&0xFFFF0000);break;
61 switch (LOWORD(vffi->dwFileOS)) {
62 case VOS__BASE:DPRINTF("BASE");break;
63 case VOS__WINDOWS16:DPRINTF("WIN16");break;
64 case VOS__WINDOWS32:DPRINTF("WIN32");break;
65 case VOS__PM16:DPRINTF("PM16");break;
66 case VOS__PM32:DPRINTF("PM32");break;
67 default:DPRINTF("UNKNOWN(0x%x)",LOWORD(vffi->dwFileOS));break;
71 switch (vffi->dwFileType) {
74 TRACE("filetype=Unknown(0x%lx)",vffi->dwFileType);
76 case VFT_APP:TRACE("filetype=APP,");break;
77 case VFT_DLL:TRACE("filetype=DLL,");break;
79 TRACE("filetype=DRV,");
80 switch(vffi->dwFileSubtype) {
83 DPRINTF("UNKNOWN(0x%lx)",vffi->dwFileSubtype);
85 case VFT2_DRV_PRINTER:
88 case VFT2_DRV_KEYBOARD:
91 case VFT2_DRV_LANGUAGE:
94 case VFT2_DRV_DISPLAY:
100 case VFT2_DRV_NETWORK:
103 case VFT2_DRV_SYSTEM:
106 case VFT2_DRV_INSTALLABLE:
107 DPRINTF("INSTALLABLE");
115 case VFT2_DRV_INPUTMETHOD:
116 DPRINTF("INPUTMETHOD");
121 TRACE("filetype=FONT.");
122 switch (vffi->dwFileSubtype) {
124 DPRINTF("UNKNOWN(0x%lx)",vffi->dwFileSubtype);
126 case VFT2_FONT_RASTER:DPRINTF("RASTER");break;
127 case VFT2_FONT_VECTOR:DPRINTF("VECTOR");break;
128 case VFT2_FONT_TRUETYPE:DPRINTF("TRUETYPE");break;
131 case VFT_VXD:TRACE("filetype=VXD");break;
132 case VFT_STATIC_LIB:TRACE("filetype=STATIC_LIB");break;
135 TRACE(" filedata=0x%lx.0x%lx\n",
136 vffi->dwFileDateMS,vffi->dwFileDateLS);
140 /***********************************************************************
141 * Version Info Structure
149 #if 0 /* variable length structure */
153 VS_VERSION_INFO_STRUCT16 Children[];
155 } VS_VERSION_INFO_STRUCT16;
163 #if 0 /* variable length structure */
167 VS_VERSION_INFO_STRUCT32 Children[];
169 } VS_VERSION_INFO_STRUCT32;
171 #define VersionInfoIs16( ver ) \
172 ( ((VS_VERSION_INFO_STRUCT16 *)ver)->szKey[0] >= ' ' )
174 #define DWORD_ALIGN( base, ptr ) \
175 ( (LPBYTE)(base) + ((((LPBYTE)(ptr) - (LPBYTE)(base)) + 3) & ~3) )
177 #define VersionInfo16_Value( ver ) \
178 DWORD_ALIGN( (ver), (ver)->szKey + strlen((ver)->szKey) + 1 )
179 #define VersionInfo32_Value( ver ) \
180 DWORD_ALIGN( (ver), (ver)->szKey + strlenW((ver)->szKey) + 1 )
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 WideCharToMultiByte( CP_ACP, 0, info32->szKey, -1, info16->szKey, 0x7fffffff, NULL, NULL );
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 = WideCharToMultiByte( CP_ACP, 0, (LPCWSTR)lpValue, -1, NULL, 0, NULL, NULL );
228 WideCharToMultiByte( CP_ACP, 0, (LPCWSTR)lpValue, -1,
229 VersionInfo16_Value( info16 ), info16->wValueLength, NULL, NULL );
231 TRACE("Copied value from %p to %p: %s\n", lpValue,
232 VersionInfo16_Value( info16 ),
233 debugstr_a(VersionInfo16_Value( info16 )) );
237 info16->wValueLength = wValueLength;
238 memmove( VersionInfo16_Value( info16 ), lpValue, wValueLength );
240 TRACE("Copied value from %p to %p: %d bytes\n", lpValue,
241 VersionInfo16_Value( info16 ), wValueLength );
244 /* Convert children */
245 child16 = VersionInfo16_Children( info16 );
246 while ( (DWORD)child32 < (DWORD)info32 + wLength && child32->wLength != 0 )
248 VS_VERSION_INFO_STRUCT32 *nextChild = VersionInfo32_Next( child32 );
250 ConvertVersionInfo32To16( child32, child16 );
252 child16 = VersionInfo16_Next( child16 );
257 info16->wLength = (DWORD)child16 - (DWORD)info16;
259 TRACE("Finished, length is %d (%p - %p)\n",
260 info16->wLength, info16, child16 );
263 /***********************************************************************
264 * VERSION_GetFileVersionInfo_PE [internal]
266 * NOTE: returns size of the PE VERSION resource or 0xFFFFFFFF
267 * in the case if file exists, but VERSION_INFO not found.
268 * FIXME: handle is not used.
270 static DWORD VERSION_GetFileVersionInfo_PE( LPCSTR filename, LPDWORD handle,
271 DWORD datasize, LPVOID data )
273 VS_FIXEDFILEINFO *vffi;
279 BOOL do_free_library = FALSE;
281 TRACE("(%s,%p)\n", debugstr_a(filename), handle );
283 hModule = GetModuleHandleA(filename);
286 hModule = LoadLibraryExA(filename, 0, LOAD_LIBRARY_AS_DATAFILE);
287 do_free_library = TRUE;
291 WARN("Could not load %s\n", debugstr_a(filename));
294 hRsrc = FindResourceW(hModule,
295 MAKEINTRESOURCEW(VS_VERSION_INFO),
296 MAKEINTRESOURCEW(VS_FILE_INFO));
299 WARN("Could not find VS_VERSION_INFO in %s\n", debugstr_a(filename));
300 if(do_free_library) FreeLibrary(hModule);
303 len = SizeofResource(hModule, hRsrc);
304 hMem = LoadResource(hModule, hRsrc);
307 WARN("Could not load VS_VERSION_INFO from %s\n", debugstr_a(filename));
308 if(do_free_library) FreeLibrary(hModule);
311 buf = LockResource(hMem);
313 vffi = (VS_FIXEDFILEINFO *)VersionInfo32_Value( (VS_VERSION_INFO_STRUCT32 *)buf );
315 if ( vffi->dwSignature != VS_FFI_SIGNATURE )
317 WARN("vffi->dwSignature is 0x%08lx, but not 0x%08lx!\n",
318 vffi->dwSignature, VS_FFI_SIGNATURE );
324 print_vffi_debug( vffi );
329 len = datasize; /* truncate data */
331 memcpy(data, buf, len);
337 if(do_free_library) FreeLibrary(hModule);
342 /***********************************************************************
343 * VERSION_GetFileVersionInfo_16 [internal]
345 * NOTE: returns size of the 16-bit VERSION resource or 0xFFFFFFFF
346 * in the case if file exists, but VERSION_INFO not found.
347 * FIXME: handle is not used.
349 static DWORD VERSION_GetFileVersionInfo_16( LPCSTR filename, LPDWORD handle,
350 DWORD datasize, LPVOID data )
352 VS_FIXEDFILEINFO *vffi;
358 BOOL do_free_library = FALSE;
360 TRACE("(%s,%p)\n", debugstr_a(filename), handle );
362 hModule = GetModuleHandle16(filename);
365 hModule = LoadLibrary16(filename);
366 do_free_library = TRUE;
370 WARN("Could not load %s\n", debugstr_a(filename));
373 hRsrc = FindResource16(hModule,
374 MAKEINTRESOURCEA(VS_VERSION_INFO),
375 MAKEINTRESOURCEA(VS_FILE_INFO));
378 WARN("Could not find VS_VERSION_INFO in %s\n", debugstr_a(filename));
379 if(do_free_library) FreeLibrary16(hModule);
382 len = SizeofResource16(hModule, hRsrc);
383 hMem = LoadResource16(hModule, hRsrc);
386 WARN("Could not load VS_VERSION_INFO from %s\n", debugstr_a(filename));
387 if(do_free_library) FreeLibrary16(hModule);
390 buf = LockResource16(hMem);
392 if(!VersionInfoIs16(buf))
395 vffi = (VS_FIXEDFILEINFO *)VersionInfo16_Value( (VS_VERSION_INFO_STRUCT16 *)buf );
397 if ( vffi->dwSignature != VS_FFI_SIGNATURE )
399 WARN("vffi->dwSignature is 0x%08lx, but not 0x%08lx!\n",
400 vffi->dwSignature, VS_FFI_SIGNATURE );
406 print_vffi_debug( vffi );
411 len = datasize; /* truncate data */
413 memcpy(data, buf, len);
418 FreeResource16(hMem);
419 if(do_free_library) FreeLibrary16(hModule);
424 /***********************************************************************
425 * GetFileVersionInfoSizeA [VERSION.@]
427 DWORD WINAPI GetFileVersionInfoSizeA( LPCSTR filename, LPDWORD handle )
429 VS_FIXEDFILEINFO *vffi;
430 DWORD len, ret, offset;
433 TRACE("(%s,%p)\n", debugstr_a(filename), handle );
435 len = VERSION_GetFileVersionInfo_PE(filename, handle, 0, NULL);
436 /* 0xFFFFFFFF means: file exists, but VERSION_INFO not found */
437 if(len == 0xFFFFFFFF) return 0;
439 len = VERSION_GetFileVersionInfo_16(filename, handle, 0, NULL);
440 /* 0xFFFFFFFF means: file exists, but VERSION_INFO not found */
441 if(len == 0xFFFFFFFF) return 0;
444 len = GetFileResourceSize16( filename,
445 MAKEINTRESOURCEA(VS_FILE_INFO),
446 MAKEINTRESOURCEA(VS_VERSION_INFO),
450 ret = GetFileResource16( filename,
451 MAKEINTRESOURCEA(VS_FILE_INFO),
452 MAKEINTRESOURCEA(VS_VERSION_INFO),
453 offset, sizeof( buf ), buf );
456 if ( handle ) *handle = offset;
458 if ( VersionInfoIs16( buf ) )
459 vffi = (VS_FIXEDFILEINFO *)VersionInfo16_Value( (VS_VERSION_INFO_STRUCT16 *)buf );
461 vffi = (VS_FIXEDFILEINFO *)VersionInfo32_Value( (VS_VERSION_INFO_STRUCT32 *)buf );
463 if ( vffi->dwSignature != VS_FFI_SIGNATURE )
465 WARN("vffi->dwSignature is 0x%08lx, but not 0x%08lx!\n",
466 vffi->dwSignature, VS_FFI_SIGNATURE );
470 if ( ((VS_VERSION_INFO_STRUCT16 *)buf)->wLength < len )
471 len = ((VS_VERSION_INFO_STRUCT16 *)buf)->wLength;
474 print_vffi_debug( vffi );
479 /***********************************************************************
480 * GetFileVersionInfoSizeW [VERSION.@]
482 DWORD WINAPI GetFileVersionInfoSizeW( LPCWSTR filename, LPDWORD handle )
484 DWORD ret, len = WideCharToMultiByte( CP_ACP, 0, filename, -1, NULL, 0, NULL, NULL );
485 LPSTR fn = HeapAlloc( GetProcessHeap(), 0, len );
486 WideCharToMultiByte( CP_ACP, 0, filename, -1, fn, len, NULL, NULL );
487 ret = GetFileVersionInfoSizeA( fn, handle );
488 HeapFree( GetProcessHeap(), 0, fn );
492 /***********************************************************************
493 * GetFileVersionInfoA [VERSION.@]
495 BOOL WINAPI GetFileVersionInfoA( LPCSTR filename, DWORD handle,
496 DWORD datasize, LPVOID data )
500 TRACE("(%s,%ld,size=%ld,data=%p)\n",
501 debugstr_a(filename), handle, datasize, data );
503 len = VERSION_GetFileVersionInfo_PE(filename, &handle, datasize, data);
504 /* 0xFFFFFFFF means: file exists, but VERSION_INFO not found */
505 if(len == 0xFFFFFFFF) return FALSE;
508 len = VERSION_GetFileVersionInfo_16(filename, &handle, datasize, data);
509 /* 0xFFFFFFFF means: file exists, but VERSION_INFO not found */
510 if(len == 0xFFFFFFFF) return FALSE;
514 if ( !GetFileResource16( filename, MAKEINTRESOURCEA(VS_FILE_INFO),
515 MAKEINTRESOURCEA(VS_VERSION_INFO),
516 handle, datasize, data ) )
519 if ( datasize >= sizeof(VS_VERSION_INFO_STRUCT16)
520 && datasize >= ((VS_VERSION_INFO_STRUCT16 *)data)->wLength
521 && !VersionInfoIs16( data ) )
523 /* convert resource from PE format to NE format */
524 ConvertVersionInfo32To16( (VS_VERSION_INFO_STRUCT32 *)data,
525 (VS_VERSION_INFO_STRUCT16 *)data );
531 /***********************************************************************
532 * GetFileVersionInfoW [VERSION.@]
534 BOOL WINAPI GetFileVersionInfoW( LPCWSTR filename, DWORD handle,
535 DWORD datasize, LPVOID data )
537 DWORD len = WideCharToMultiByte( CP_ACP, 0, filename, -1, NULL, 0, NULL, NULL );
538 LPSTR fn = HeapAlloc( GetProcessHeap(), 0, len );
541 WideCharToMultiByte( CP_ACP, 0, filename, -1, fn, len, NULL, NULL );
543 TRACE("(%s,%ld,size=%ld,data=%p)\n",
544 debugstr_w(filename), handle, datasize, data );
546 if(VERSION_GetFileVersionInfo_PE(fn, &handle, datasize, data))
548 if(VERSION_GetFileVersionInfo_16(fn, &handle, datasize, data))
551 if ( !GetFileResource16( fn, MAKEINTRESOURCEA(VS_FILE_INFO),
552 MAKEINTRESOURCEA(VS_VERSION_INFO),
553 handle, datasize, data ) )
556 else if ( datasize >= sizeof(VS_VERSION_INFO_STRUCT16)
557 && datasize >= ((VS_VERSION_INFO_STRUCT16 *)data)->wLength
558 && VersionInfoIs16( data ) )
560 ERR("Cannot access NE resource in %s\n", debugstr_a(fn) );
564 HeapFree( GetProcessHeap(), 0, fn );
569 /***********************************************************************
570 * VersionInfo16_FindChild [internal]
572 static VS_VERSION_INFO_STRUCT16 *VersionInfo16_FindChild( VS_VERSION_INFO_STRUCT16 *info,
573 LPCSTR szKey, UINT cbKey )
575 VS_VERSION_INFO_STRUCT16 *child = VersionInfo16_Children( info );
577 while ( (DWORD)child < (DWORD)info + info->wLength )
579 if ( !strncasecmp( child->szKey, szKey, cbKey ) )
582 if (!(child->wLength)) return NULL;
583 child = VersionInfo16_Next( child );
589 /***********************************************************************
590 * VersionInfo32_FindChild [internal]
592 static VS_VERSION_INFO_STRUCT32 *VersionInfo32_FindChild( VS_VERSION_INFO_STRUCT32 *info,
593 LPCWSTR szKey, UINT cbKey )
595 VS_VERSION_INFO_STRUCT32 *child = VersionInfo32_Children( info );
597 while ( (DWORD)child < (DWORD)info + info->wLength )
599 if ( !strncmpiW( child->szKey, szKey, cbKey ) )
602 child = VersionInfo32_Next( child );
608 /***********************************************************************
609 * VerQueryValueA [VERSION.@]
611 DWORD WINAPI VerQueryValueA( LPVOID pBlock, LPCSTR lpSubBlock,
612 LPVOID *lplpBuffer, UINT *puLen )
614 VS_VERSION_INFO_STRUCT16 *info = (VS_VERSION_INFO_STRUCT16 *)pBlock;
615 if ( !VersionInfoIs16( info ) )
621 /* <lawson_whitney@juno.com> Feb 2001 */
622 /* AOL 5.0 does this, expecting to get this: */
623 len = MultiByteToWideChar(CP_ACP, 0, lpSubBlock, -1, NULL, 0);
624 wide_str = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
625 MultiByteToWideChar(CP_ACP, 0, lpSubBlock, -1, wide_str, len);
627 give = VerQueryValueW(pBlock, wide_str, lplpBuffer, puLen);
628 HeapFree(GetProcessHeap(), 0, wide_str);
632 TRACE("(%p,%s,%p,%p)\n",
633 pBlock, debugstr_a(lpSubBlock), lplpBuffer, puLen );
635 while ( *lpSubBlock )
637 /* Find next path component */
639 for ( lpNextSlash = lpSubBlock; *lpNextSlash; lpNextSlash++ )
640 if ( *lpNextSlash == '\\' )
643 /* Skip empty components */
644 if ( lpNextSlash == lpSubBlock )
650 /* We have a non-empty component: search info for key */
651 info = VersionInfo16_FindChild( info, lpSubBlock, lpNextSlash-lpSubBlock );
652 if ( !info ) return FALSE;
654 /* Skip path component */
655 lpSubBlock = lpNextSlash;
659 *lplpBuffer = VersionInfo16_Value( info );
660 *puLen = info->wValueLength;
665 /***********************************************************************
666 * VerQueryValueW [VERSION.@]
668 DWORD WINAPI VerQueryValueW( LPVOID pBlock, LPCWSTR lpSubBlock,
669 LPVOID *lplpBuffer, UINT *puLen )
671 VS_VERSION_INFO_STRUCT32 *info = (VS_VERSION_INFO_STRUCT32 *)pBlock;
672 if ( VersionInfoIs16( info ) )
674 ERR("called on NE resource!\n" );
678 TRACE("(%p,%s,%p,%p)\n",
679 pBlock, debugstr_w(lpSubBlock), lplpBuffer, puLen );
681 while ( *lpSubBlock )
683 /* Find next path component */
685 for ( lpNextSlash = lpSubBlock; *lpNextSlash; lpNextSlash++ )
686 if ( *lpNextSlash == '\\' )
689 /* Skip empty components */
690 if ( lpNextSlash == lpSubBlock )
696 /* We have a non-empty component: search info for key */
697 info = VersionInfo32_FindChild( info, lpSubBlock, lpNextSlash-lpSubBlock );
698 if ( !info ) return FALSE;
700 /* Skip path component */
701 lpSubBlock = lpNextSlash;
705 *lplpBuffer = VersionInfo32_Value( info );
706 *puLen = info->wValueLength;