/* * Implementation of VERSION.DLL * * Copyright 1996,1997 Marcus Meissner * Copyright 1997 David Cuthbert * Copyright 1999 Ulrich Weigand * Copyright 2005 Paul Vriens * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA * */ #include "config.h" #include #include #include #include #include #ifdef HAVE_UNISTD_H # include #endif #define NONAMELESSUNION #define NONAMELESSSTRUCT #include "windef.h" #include "winbase.h" #include "winver.h" #include "winuser.h" #include "winnls.h" #include "winternl.h" #include "lzexpand.h" #include "wine/unicode.h" #include "winerror.h" #include "wine/debug.h" WINE_DEFAULT_DEBUG_CHANNEL(ver); typedef struct { WORD offset; WORD length; WORD flags; WORD id; WORD handle; WORD usage; } NE_NAMEINFO; typedef struct { WORD type_id; WORD count; DWORD resloader; } NE_TYPEINFO; /********************************************************************** * find_entry_by_id * * Find an entry by id in a resource directory * Copied from loader/pe_resource.c */ static const IMAGE_RESOURCE_DIRECTORY *find_entry_by_id( const IMAGE_RESOURCE_DIRECTORY *dir, WORD id, const void *root ) { const IMAGE_RESOURCE_DIRECTORY_ENTRY *entry; int min, max, pos; entry = (const IMAGE_RESOURCE_DIRECTORY_ENTRY *)(dir + 1); min = dir->NumberOfNamedEntries; max = min + dir->NumberOfIdEntries - 1; while (min <= max) { pos = (min + max) / 2; if (entry[pos].u1.s2.Id == id) return (const IMAGE_RESOURCE_DIRECTORY *)((const char *)root + entry[pos].u2.s3.OffsetToDirectory); if (entry[pos].u1.s2.Id > id) max = pos - 1; else min = pos + 1; } return NULL; } /********************************************************************** * find_entry_default * * Find a default entry in a resource directory * Copied from loader/pe_resource.c */ static const IMAGE_RESOURCE_DIRECTORY *find_entry_default( const IMAGE_RESOURCE_DIRECTORY *dir, const void *root ) { const IMAGE_RESOURCE_DIRECTORY_ENTRY *entry; entry = (const IMAGE_RESOURCE_DIRECTORY_ENTRY *)(dir + 1); return (const IMAGE_RESOURCE_DIRECTORY *)((const char *)root + entry->u2.s3.OffsetToDirectory); } /*********************************************************************** * read_xx_header [internal] */ static int read_xx_header( HFILE lzfd ) { IMAGE_DOS_HEADER mzh; char magic[3]; LZSeek( lzfd, 0, SEEK_SET ); if ( sizeof(mzh) != LZRead( lzfd, (LPSTR)&mzh, sizeof(mzh) ) ) return 0; if ( mzh.e_magic != IMAGE_DOS_SIGNATURE ) { if (!memcmp( &mzh, "\177ELF", 4 )) return 1; /* ELF */ if (*(UINT *)&mzh == 0xfeedface || *(UINT *)&mzh == 0xcefaedfe) return 1; /* Mach-O */ return 0; } LZSeek( lzfd, mzh.e_lfanew, SEEK_SET ); if ( 2 != LZRead( lzfd, magic, 2 ) ) return 0; LZSeek( lzfd, mzh.e_lfanew, SEEK_SET ); if ( magic[0] == 'N' && magic[1] == 'E' ) return IMAGE_OS2_SIGNATURE; if ( magic[0] == 'P' && magic[1] == 'E' ) return IMAGE_NT_SIGNATURE; magic[2] = '\0'; WARN("Can't handle %s files.\n", magic ); return 0; } /*********************************************************************** * find_ne_resource [internal] */ static BOOL find_ne_resource( HFILE lzfd, DWORD *resLen, DWORD *resOff ) { const WORD typeid = VS_FILE_INFO | 0x8000; const WORD resid = VS_VERSION_INFO | 0x8000; IMAGE_OS2_HEADER nehd; NE_TYPEINFO *typeInfo; NE_NAMEINFO *nameInfo; DWORD nehdoffset; LPBYTE resTab; DWORD resTabSize; int count; /* Read in NE header */ nehdoffset = LZSeek( lzfd, 0, SEEK_CUR ); if ( sizeof(nehd) != LZRead( lzfd, (LPSTR)&nehd, sizeof(nehd) ) ) return 0; resTabSize = nehd.ne_restab - nehd.ne_rsrctab; if ( !resTabSize ) { TRACE("No resources in NE dll\n" ); return FALSE; } /* Read in resource table */ resTab = HeapAlloc( GetProcessHeap(), 0, resTabSize ); if ( !resTab ) return FALSE; LZSeek( lzfd, nehd.ne_rsrctab + nehdoffset, SEEK_SET ); if ( resTabSize != LZRead( lzfd, (char*)resTab, resTabSize ) ) { HeapFree( GetProcessHeap(), 0, resTab ); return FALSE; } /* Find resource */ typeInfo = (NE_TYPEINFO *)(resTab + 2); while (typeInfo->type_id) { if (typeInfo->type_id == typeid) goto found_type; typeInfo = (NE_TYPEINFO *)((char *)(typeInfo + 1) + typeInfo->count * sizeof(NE_NAMEINFO)); } TRACE("No typeid entry found\n" ); HeapFree( GetProcessHeap(), 0, resTab ); return FALSE; found_type: nameInfo = (NE_NAMEINFO *)(typeInfo + 1); for (count = typeInfo->count; count > 0; count--, nameInfo++) if (nameInfo->id == resid) goto found_name; TRACE("No resid entry found\n" ); HeapFree( GetProcessHeap(), 0, resTab ); return FALSE; found_name: /* Return resource data */ if ( resLen ) *resLen = nameInfo->length << *(WORD *)resTab; if ( resOff ) *resOff = nameInfo->offset << *(WORD *)resTab; HeapFree( GetProcessHeap(), 0, resTab ); return TRUE; } /*********************************************************************** * find_pe_resource [internal] */ static BOOL find_pe_resource( HFILE lzfd, DWORD *resLen, DWORD *resOff ) { union { IMAGE_NT_HEADERS32 nt32; IMAGE_NT_HEADERS64 nt64; } pehd; DWORD pehdoffset; PIMAGE_DATA_DIRECTORY resDataDir; PIMAGE_SECTION_HEADER sections; LPBYTE resSection; DWORD section_size, data_size; const void *resDir; const IMAGE_RESOURCE_DIRECTORY *resPtr; const IMAGE_RESOURCE_DATA_ENTRY *resData; int i, len, nSections; BOOL ret = FALSE; /* Read in PE header */ pehdoffset = LZSeek( lzfd, 0, SEEK_CUR ); len = LZRead( lzfd, (LPSTR)&pehd, sizeof(pehd) ); if (len < sizeof(pehd.nt32.FileHeader)) return 0; if (len < sizeof(pehd)) memset( (char *)&pehd + len, 0, sizeof(pehd) - len ); switch (pehd.nt32.OptionalHeader.Magic) { case IMAGE_NT_OPTIONAL_HDR32_MAGIC: resDataDir = pehd.nt32.OptionalHeader.DataDirectory + IMAGE_DIRECTORY_ENTRY_RESOURCE; break; case IMAGE_NT_OPTIONAL_HDR64_MAGIC: resDataDir = pehd.nt64.OptionalHeader.DataDirectory + IMAGE_DIRECTORY_ENTRY_RESOURCE; break; default: return 0; } if ( !resDataDir->Size ) { TRACE("No resources in PE dll\n" ); return FALSE; } /* Read in section table */ nSections = pehd.nt32.FileHeader.NumberOfSections; sections = HeapAlloc( GetProcessHeap(), 0, nSections * sizeof(IMAGE_SECTION_HEADER) ); if ( !sections ) return FALSE; len = FIELD_OFFSET( IMAGE_NT_HEADERS32, OptionalHeader ) + pehd.nt32.FileHeader.SizeOfOptionalHeader; LZSeek( lzfd, pehdoffset + len, SEEK_SET ); if ( nSections * sizeof(IMAGE_SECTION_HEADER) != LZRead( lzfd, (LPSTR)sections, nSections * sizeof(IMAGE_SECTION_HEADER) ) ) { HeapFree( GetProcessHeap(), 0, sections ); return FALSE; } /* Find resource section */ for ( i = 0; i < nSections; i++ ) if ( resDataDir->VirtualAddress >= sections[i].VirtualAddress && resDataDir->VirtualAddress < sections[i].VirtualAddress + sections[i].SizeOfRawData ) break; if ( i == nSections ) { HeapFree( GetProcessHeap(), 0, sections ); TRACE("Couldn't find resource section\n" ); return FALSE; } /* Read in resource section */ data_size = sections[i].SizeOfRawData; section_size = max( data_size, sections[i].Misc.VirtualSize ); resSection = HeapAlloc( GetProcessHeap(), 0, section_size ); if ( !resSection ) { HeapFree( GetProcessHeap(), 0, sections ); return FALSE; } LZSeek( lzfd, sections[i].PointerToRawData, SEEK_SET ); if (data_size != LZRead( lzfd, (char*)resSection, data_size )) goto done; if (data_size < section_size) memset( (char *)resSection + data_size, 0, section_size - data_size ); /* Find resource */ resDir = resSection + (resDataDir->VirtualAddress - sections[i].VirtualAddress); resPtr = resDir; resPtr = find_entry_by_id( resPtr, VS_FILE_INFO, resDir ); if ( !resPtr ) { TRACE("No typeid entry found\n" ); goto done; } resPtr = find_entry_by_id( resPtr, VS_VERSION_INFO, resDir ); if ( !resPtr ) { TRACE("No resid entry found\n" ); goto done; } resPtr = find_entry_default( resPtr, resDir ); if ( !resPtr ) { TRACE("No default language entry found\n" ); goto done; } /* Find resource data section */ resData = (const IMAGE_RESOURCE_DATA_ENTRY*)resPtr; for ( i = 0; i < nSections; i++ ) if ( resData->OffsetToData >= sections[i].VirtualAddress && resData->OffsetToData < sections[i].VirtualAddress + sections[i].SizeOfRawData ) break; if ( i == nSections ) { TRACE("Couldn't find resource data section\n" ); goto done; } /* Return resource data */ if ( resLen ) *resLen = resData->Size; if ( resOff ) *resOff = resData->OffsetToData - sections[i].VirtualAddress + sections[i].PointerToRawData; ret = TRUE; done: HeapFree( GetProcessHeap(), 0, resSection ); HeapFree( GetProcessHeap(), 0, sections ); return ret; } /*********************************************************************** * find_version_resource [internal] */ static DWORD find_version_resource( HFILE lzfd, DWORD *reslen, DWORD *offset ) { DWORD magic = read_xx_header( lzfd ); switch (magic) { case IMAGE_OS2_SIGNATURE: if (!find_ne_resource( lzfd, reslen, offset )) magic = 0; break; case IMAGE_NT_SIGNATURE: if (!find_pe_resource( lzfd, reslen, offset )) magic = 0; break; } return magic; } /****************************************************************************** * * This function will print via standard TRACE, debug info regarding * the file info structure vffi. * 15-Feb-1998 Dimitrie Paun (dimi@cs.toronto.edu) * Added this function to clean up the code. * *****************************************************************************/ static void print_vffi_debug(const VS_FIXEDFILEINFO *vffi) { BOOL versioned_printer = FALSE; if((vffi->dwFileType == VFT_DLL) || (vffi->dwFileType == VFT_DRV)) { if(vffi->dwFileSubtype == VFT2_DRV_VERSIONED_PRINTER) /* this is documented for newer w2k Drivers and up */ versioned_printer = TRUE; else if( (vffi->dwFileSubtype == VFT2_DRV_PRINTER) && (vffi->dwFileVersionMS != vffi->dwProductVersionMS) && (vffi->dwFileVersionMS > 0) && (vffi->dwFileVersionMS <= 3) ) /* found this on NT 3.51, NT4.0 and old w2k Drivers */ versioned_printer = TRUE; } TRACE("structversion=%u.%u, ", HIWORD(vffi->dwStrucVersion),LOWORD(vffi->dwStrucVersion)); if(versioned_printer) { WORD mode = LOWORD(vffi->dwFileVersionMS); WORD ver_rev = HIWORD(vffi->dwFileVersionLS); TRACE("fileversion=%u.%u.%u.%u (%s.major.minor.release), ", (vffi->dwFileVersionMS), HIBYTE(ver_rev), LOBYTE(ver_rev), LOWORD(vffi->dwFileVersionLS), (mode == 3) ? "Usermode" : ((mode <= 2) ? "Kernelmode" : "?") ); } else { TRACE("fileversion=%u.%u.%u.%u, ", HIWORD(vffi->dwFileVersionMS),LOWORD(vffi->dwFileVersionMS), HIWORD(vffi->dwFileVersionLS),LOWORD(vffi->dwFileVersionLS)); } TRACE("productversion=%u.%u.%u.%u\n", HIWORD(vffi->dwProductVersionMS),LOWORD(vffi->dwProductVersionMS), HIWORD(vffi->dwProductVersionLS),LOWORD(vffi->dwProductVersionLS)); TRACE("flagmask=0x%x, flags=0x%x %s%s%s%s%s%s\n", vffi->dwFileFlagsMask, vffi->dwFileFlags, (vffi->dwFileFlags & VS_FF_DEBUG) ? "DEBUG," : "", (vffi->dwFileFlags & VS_FF_PRERELEASE) ? "PRERELEASE," : "", (vffi->dwFileFlags & VS_FF_PATCHED) ? "PATCHED," : "", (vffi->dwFileFlags & VS_FF_PRIVATEBUILD) ? "PRIVATEBUILD," : "", (vffi->dwFileFlags & VS_FF_INFOINFERRED) ? "INFOINFERRED," : "", (vffi->dwFileFlags & VS_FF_SPECIALBUILD) ? "SPECIALBUILD," : ""); TRACE("("); TRACE("OS=0x%x.0x%x ", HIWORD(vffi->dwFileOS), LOWORD(vffi->dwFileOS)); switch (vffi->dwFileOS&0xFFFF0000) { case VOS_DOS:TRACE("DOS,");break; case VOS_OS216:TRACE("OS/2-16,");break; case VOS_OS232:TRACE("OS/2-32,");break; case VOS_NT:TRACE("NT,");break; case VOS_UNKNOWN: default: TRACE("UNKNOWN(0x%x),",vffi->dwFileOS&0xFFFF0000);break; } switch (LOWORD(vffi->dwFileOS)) { case VOS__BASE:TRACE("BASE");break; case VOS__WINDOWS16:TRACE("WIN16");break; case VOS__WINDOWS32:TRACE("WIN32");break; case VOS__PM16:TRACE("PM16");break; case VOS__PM32:TRACE("PM32");break; default: TRACE("UNKNOWN(0x%x)",LOWORD(vffi->dwFileOS));break; } TRACE(")\n"); switch (vffi->dwFileType) { case VFT_APP:TRACE("filetype=APP");break; case VFT_DLL: TRACE("filetype=DLL"); if(vffi->dwFileSubtype != 0) { if(versioned_printer) /* NT3.x/NT4.0 or old w2k Driver */ TRACE(",PRINTER"); TRACE(" (subtype=0x%x)", vffi->dwFileSubtype); } break; case VFT_DRV: TRACE("filetype=DRV,"); switch(vffi->dwFileSubtype) { case VFT2_DRV_PRINTER:TRACE("PRINTER");break; case VFT2_DRV_KEYBOARD:TRACE("KEYBOARD");break; case VFT2_DRV_LANGUAGE:TRACE("LANGUAGE");break; case VFT2_DRV_DISPLAY:TRACE("DISPLAY");break; case VFT2_DRV_MOUSE:TRACE("MOUSE");break; case VFT2_DRV_NETWORK:TRACE("NETWORK");break; case VFT2_DRV_SYSTEM:TRACE("SYSTEM");break; case VFT2_DRV_INSTALLABLE:TRACE("INSTALLABLE");break; case VFT2_DRV_SOUND:TRACE("SOUND");break; case VFT2_DRV_COMM:TRACE("COMM");break; case VFT2_DRV_INPUTMETHOD:TRACE("INPUTMETHOD");break; case VFT2_DRV_VERSIONED_PRINTER:TRACE("VERSIONED_PRINTER");break; case VFT2_UNKNOWN: default: TRACE("UNKNOWN(0x%x)",vffi->dwFileSubtype);break; } break; case VFT_FONT: TRACE("filetype=FONT,"); switch (vffi->dwFileSubtype) { case VFT2_FONT_RASTER:TRACE("RASTER");break; case VFT2_FONT_VECTOR:TRACE("VECTOR");break; case VFT2_FONT_TRUETYPE:TRACE("TRUETYPE");break; default:TRACE("UNKNOWN(0x%x)",vffi->dwFileSubtype);break; } break; case VFT_VXD:TRACE("filetype=VXD");break; case VFT_STATIC_LIB:TRACE("filetype=STATIC_LIB");break; case VFT_UNKNOWN: default: TRACE("filetype=Unknown(0x%x)",vffi->dwFileType);break; } TRACE("\n"); TRACE("filedate=0x%x.0x%x\n",vffi->dwFileDateMS,vffi->dwFileDateLS); } /*********************************************************************** * Version Info Structure */ typedef struct { WORD wLength; WORD wValueLength; CHAR szKey[1]; #if 0 /* variable length structure */ /* DWORD aligned */ BYTE Value[]; /* DWORD aligned */ VS_VERSION_INFO_STRUCT16 Children[]; #endif } VS_VERSION_INFO_STRUCT16; typedef struct { WORD wLength; WORD wValueLength; WORD wType; WCHAR szKey[1]; #if 0 /* variable length structure */ /* DWORD aligned */ BYTE Value[]; /* DWORD aligned */ VS_VERSION_INFO_STRUCT32 Children[]; #endif } VS_VERSION_INFO_STRUCT32; #define VersionInfoIs16( ver ) \ ( ((const VS_VERSION_INFO_STRUCT16 *)ver)->szKey[0] >= ' ' ) #define DWORD_ALIGN( base, ptr ) \ ( (LPBYTE)(base) + ((((LPBYTE)(ptr) - (LPBYTE)(base)) + 3) & ~3) ) #define VersionInfo16_Value( ver ) \ DWORD_ALIGN( (ver), (ver)->szKey + strlen((ver)->szKey) + 1 ) #define VersionInfo32_Value( ver ) \ DWORD_ALIGN( (ver), (ver)->szKey + strlenW((ver)->szKey) + 1 ) #define VersionInfo16_Children( ver ) \ (const VS_VERSION_INFO_STRUCT16 *)( VersionInfo16_Value( ver ) + \ ( ( (ver)->wValueLength + 3 ) & ~3 ) ) #define VersionInfo32_Children( ver ) \ (const VS_VERSION_INFO_STRUCT32 *)( VersionInfo32_Value( ver ) + \ ( ( (ver)->wValueLength * \ ((ver)->wType? 2 : 1) + 3 ) & ~3 ) ) #define VersionInfo16_Next( ver ) \ (VS_VERSION_INFO_STRUCT16 *)( (LPBYTE)ver + (((ver)->wLength + 3) & ~3) ) #define VersionInfo32_Next( ver ) \ (VS_VERSION_INFO_STRUCT32 *)( (LPBYTE)ver + (((ver)->wLength + 3) & ~3) ) /*********************************************************************** * GetFileVersionInfoSizeW [VERSION.@] */ DWORD WINAPI GetFileVersionInfoSizeW( LPCWSTR filename, LPDWORD handle ) { DWORD len, offset, magic = 1; HFILE lzfd; HMODULE hModule; OFSTRUCT ofs; TRACE("(%s,%p)\n", debugstr_w(filename), handle ); if (handle) *handle = 0; if (!filename) { SetLastError(ERROR_INVALID_PARAMETER); return 0; } if (!*filename) { SetLastError(ERROR_BAD_PATHNAME); return 0; } if ((lzfd = LZOpenFileW( (LPWSTR)filename, &ofs, OF_READ )) != HFILE_ERROR) { magic = find_version_resource( lzfd, &len, &offset ); LZClose( lzfd ); } if ((magic == 1) && (hModule = LoadLibraryExW( filename, 0, LOAD_LIBRARY_AS_DATAFILE ))) { HRSRC hRsrc = FindResourceW( hModule, MAKEINTRESOURCEW(VS_VERSION_INFO), MAKEINTRESOURCEW(VS_FILE_INFO) ); if (hRsrc) { magic = IMAGE_NT_SIGNATURE; len = SizeofResource( hModule, hRsrc ); } FreeLibrary( hModule ); } switch (magic) { case IMAGE_OS2_SIGNATURE: /* We have a 16bit resource. * * XP/W2K/W2K3 uses a buffer which is more than the actual needed space: * * (info->wLength - sizeof(VS_FIXEDFILEINFO)) * 4 * * This extra buffer is used for ANSI to Unicode conversions in W-Calls. * info->wLength should be the same as len. Currently it isn't but that * doesn't seem to be a problem (len is bigger than info->wLength). */ SetLastError(0); return (len - sizeof(VS_FIXEDFILEINFO)) * 4; case IMAGE_NT_SIGNATURE: /* We have a 32bit resource. * * XP/W2K/W2K3 uses a buffer which is 2 times the actual needed space + 4 bytes "FE2X" * This extra buffer is used for Unicode to ANSI conversions in A-Calls */ SetLastError(0); return (len * 2) + 4; default: SetLastError( lzfd == HFILE_ERROR ? ofs.nErrCode : ERROR_RESOURCE_DATA_NOT_FOUND ); return 0; } } /*********************************************************************** * GetFileVersionInfoSizeA [VERSION.@] */ DWORD WINAPI GetFileVersionInfoSizeA( LPCSTR filename, LPDWORD handle ) { UNICODE_STRING filenameW; DWORD retval; TRACE("(%s,%p)\n", debugstr_a(filename), handle ); if(filename) RtlCreateUnicodeStringFromAsciiz(&filenameW, filename); else filenameW.Buffer = NULL; retval = GetFileVersionInfoSizeW(filenameW.Buffer, handle); RtlFreeUnicodeString(&filenameW); return retval; } /*********************************************************************** * GetFileVersionInfoW [VERSION.@] */ BOOL WINAPI GetFileVersionInfoW( LPCWSTR filename, DWORD handle, DWORD datasize, LPVOID data ) { static const char signature[4] = "FE2X"; DWORD len, offset, magic = 1; HFILE lzfd; OFSTRUCT ofs; HMODULE hModule; VS_VERSION_INFO_STRUCT32* vvis = data; TRACE("(%s,%d,size=%d,data=%p)\n", debugstr_w(filename), handle, datasize, data ); if (!data) { SetLastError(ERROR_INVALID_DATA); return FALSE; } if ((lzfd = LZOpenFileW( (LPWSTR)filename, &ofs, OF_READ )) != HFILE_ERROR) { if ((magic = find_version_resource( lzfd, &len, &offset )) > 1) { LZSeek( lzfd, offset, 0 /* SEEK_SET */ ); len = LZRead( lzfd, data, min( len, datasize ) ); } LZClose( lzfd ); } if ((magic == 1) && (hModule = LoadLibraryExW( filename, 0, LOAD_LIBRARY_AS_DATAFILE ))) { HRSRC hRsrc = FindResourceW( hModule, MAKEINTRESOURCEW(VS_VERSION_INFO), MAKEINTRESOURCEW(VS_FILE_INFO) ); if (hRsrc) { HGLOBAL hMem = LoadResource( hModule, hRsrc ); magic = IMAGE_NT_SIGNATURE; len = min( SizeofResource(hModule, hRsrc), datasize ); memcpy( data, LockResource( hMem ), len ); FreeResource( hMem ); } FreeLibrary( hModule ); } switch (magic) { case IMAGE_OS2_SIGNATURE: /* We have a 16bit resource. */ if (TRACE_ON(ver)) print_vffi_debug( (VS_FIXEDFILEINFO *)VersionInfo16_Value( (VS_VERSION_INFO_STRUCT16 *)data )); SetLastError(0); return TRUE; case IMAGE_NT_SIGNATURE: /* We have a 32bit resource. * * XP/W2K/W2K3 uses a buffer which is 2 times the actual needed space + 4 bytes "FE2X" * This extra buffer is used for Unicode to ANSI conversions in A-Calls */ len = vvis->wLength + sizeof(signature); if (datasize >= len) memcpy( (char*)data + vvis->wLength, signature, sizeof(signature) ); if (TRACE_ON(ver)) print_vffi_debug( (VS_FIXEDFILEINFO *)VersionInfo32_Value( vvis )); SetLastError(0); return TRUE; default: SetLastError( lzfd == HFILE_ERROR ? ofs.nErrCode : ERROR_RESOURCE_DATA_NOT_FOUND ); return FALSE; } } /*********************************************************************** * GetFileVersionInfoA [VERSION.@] */ BOOL WINAPI GetFileVersionInfoA( LPCSTR filename, DWORD handle, DWORD datasize, LPVOID data ) { UNICODE_STRING filenameW; BOOL retval; TRACE("(%s,%d,size=%d,data=%p)\n", debugstr_a(filename), handle, datasize, data ); if(filename) RtlCreateUnicodeStringFromAsciiz(&filenameW, filename); else filenameW.Buffer = NULL; retval = GetFileVersionInfoW(filenameW.Buffer, handle, datasize, data); RtlFreeUnicodeString(&filenameW); return retval; } /*********************************************************************** * VersionInfo16_FindChild [internal] */ static const VS_VERSION_INFO_STRUCT16 *VersionInfo16_FindChild( const VS_VERSION_INFO_STRUCT16 *info, LPCSTR szKey, UINT cbKey ) { const VS_VERSION_INFO_STRUCT16 *child = VersionInfo16_Children( info ); while ((char *)child < (char *)info + info->wLength ) { if (!strncasecmp( child->szKey, szKey, cbKey ) && !child->szKey[cbKey]) return child; if (!(child->wLength)) return NULL; child = VersionInfo16_Next( child ); } return NULL; } /*********************************************************************** * VersionInfo32_FindChild [internal] */ static const VS_VERSION_INFO_STRUCT32 *VersionInfo32_FindChild( const VS_VERSION_INFO_STRUCT32 *info, LPCWSTR szKey, UINT cbKey ) { const VS_VERSION_INFO_STRUCT32 *child = VersionInfo32_Children( info ); while ((char *)child < (char *)info + info->wLength ) { if (!strncmpiW( child->szKey, szKey, cbKey ) && !child->szKey[cbKey]) return child; if (!(child->wLength)) return NULL; child = VersionInfo32_Next( child ); } return NULL; } /*********************************************************************** * VersionInfo16_QueryValue [internal] * * Gets a value from a 16-bit NE resource */ static BOOL VersionInfo16_QueryValue( const VS_VERSION_INFO_STRUCT16 *info, LPCSTR lpSubBlock, LPVOID *lplpBuffer, UINT *puLen ) { while ( *lpSubBlock ) { /* Find next path component */ LPCSTR lpNextSlash; for ( lpNextSlash = lpSubBlock; *lpNextSlash; lpNextSlash++ ) if ( *lpNextSlash == '\\' ) break; /* Skip empty components */ if ( lpNextSlash == lpSubBlock ) { lpSubBlock++; continue; } /* We have a non-empty component: search info for key */ info = VersionInfo16_FindChild( info, lpSubBlock, lpNextSlash-lpSubBlock ); if ( !info ) { if (puLen) *puLen = 0 ; SetLastError( ERROR_RESOURCE_TYPE_NOT_FOUND ); return FALSE; } /* Skip path component */ lpSubBlock = lpNextSlash; } /* Return value */ *lplpBuffer = VersionInfo16_Value( info ); if (puLen) *puLen = info->wValueLength; return TRUE; } /*********************************************************************** * VersionInfo32_QueryValue [internal] * * Gets a value from a 32-bit PE resource */ static BOOL VersionInfo32_QueryValue( const VS_VERSION_INFO_STRUCT32 *info, LPCWSTR lpSubBlock, LPVOID *lplpBuffer, UINT *puLen ) { TRACE("lpSubBlock : (%s)\n", debugstr_w(lpSubBlock)); while ( *lpSubBlock ) { /* Find next path component */ LPCWSTR lpNextSlash; for ( lpNextSlash = lpSubBlock; *lpNextSlash; lpNextSlash++ ) if ( *lpNextSlash == '\\' ) break; /* Skip empty components */ if ( lpNextSlash == lpSubBlock ) { lpSubBlock++; continue; } /* We have a non-empty component: search info for key */ info = VersionInfo32_FindChild( info, lpSubBlock, lpNextSlash-lpSubBlock ); if ( !info ) { if (puLen) *puLen = 0 ; SetLastError( ERROR_RESOURCE_TYPE_NOT_FOUND ); return FALSE; } /* Skip path component */ lpSubBlock = lpNextSlash; } /* Return value */ *lplpBuffer = VersionInfo32_Value( info ); if (puLen) *puLen = info->wValueLength; return TRUE; } /*********************************************************************** * VerQueryValueA [VERSION.@] */ BOOL WINAPI VerQueryValueA( LPCVOID pBlock, LPCSTR lpSubBlock, LPVOID *lplpBuffer, PUINT puLen ) { static const char rootA[] = "\\"; static const char varfileinfoA[] = "\\VarFileInfo\\Translation"; const VS_VERSION_INFO_STRUCT16 *info = pBlock; TRACE("(%p,%s,%p,%p)\n", pBlock, debugstr_a(lpSubBlock), lplpBuffer, puLen ); if (!pBlock) return FALSE; if (lpSubBlock == NULL || lpSubBlock[0] == '\0') lpSubBlock = rootA; if ( !VersionInfoIs16( info ) ) { BOOL ret; INT len; LPWSTR lpSubBlockW; len = MultiByteToWideChar(CP_ACP, 0, lpSubBlock, -1, NULL, 0); lpSubBlockW = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR)); if (!lpSubBlockW) return FALSE; MultiByteToWideChar(CP_ACP, 0, lpSubBlock, -1, lpSubBlockW, len); ret = VersionInfo32_QueryValue(pBlock, lpSubBlockW, lplpBuffer, puLen); HeapFree(GetProcessHeap(), 0, lpSubBlockW); if (ret && strcasecmp( lpSubBlock, rootA ) && strcasecmp( lpSubBlock, varfileinfoA )) { /* Set lpBuffer so it points to the 'empty' area where we store * the converted strings */ LPSTR lpBufferA = (LPSTR)pBlock + info->wLength + 4; DWORD pos = (LPCSTR)*lplpBuffer - (LPCSTR)pBlock; len = WideCharToMultiByte(CP_ACP, 0, *lplpBuffer, -1, lpBufferA + pos, info->wLength - pos, NULL, NULL); *lplpBuffer = lpBufferA + pos; *puLen = len; } return ret; } return VersionInfo16_QueryValue(info, lpSubBlock, lplpBuffer, puLen); } /*********************************************************************** * VerQueryValueW [VERSION.@] */ BOOL WINAPI VerQueryValueW( LPCVOID pBlock, LPCWSTR lpSubBlock, LPVOID *lplpBuffer, PUINT puLen ) { static const WCHAR nullW[] = { 0 }; static const WCHAR rootW[] = { '\\', 0 }; static const WCHAR varfileinfoW[] = { '\\','V','a','r','F','i','l','e','I','n','f','o', '\\','T','r','a','n','s','l','a','t','i','o','n', 0 }; const VS_VERSION_INFO_STRUCT32 *info = pBlock; TRACE("(%p,%s,%p,%p)\n", pBlock, debugstr_w(lpSubBlock), lplpBuffer, puLen ); if (!pBlock) return FALSE; if (lpSubBlock == NULL || lpSubBlock[0] == nullW[0]) lpSubBlock = rootW; if ( VersionInfoIs16( info ) ) { BOOL ret; int len; LPSTR lpSubBlockA; len = WideCharToMultiByte(CP_ACP, 0, lpSubBlock, -1, NULL, 0, NULL, NULL); lpSubBlockA = HeapAlloc(GetProcessHeap(), 0, len * sizeof(char)); if (!lpSubBlockA) return FALSE; WideCharToMultiByte(CP_ACP, 0, lpSubBlock, -1, lpSubBlockA, len, NULL, NULL); ret = VersionInfo16_QueryValue(pBlock, lpSubBlockA, lplpBuffer, puLen); HeapFree(GetProcessHeap(), 0, lpSubBlockA); if (ret && strcmpiW( lpSubBlock, rootW ) && strcmpiW( lpSubBlock, varfileinfoW )) { /* Set lpBuffer so it points to the 'empty' area where we store * the converted strings */ LPWSTR lpBufferW = (LPWSTR)((LPSTR)pBlock + info->wLength); DWORD pos = (LPCSTR)*lplpBuffer - (LPCSTR)pBlock; DWORD max = (info->wLength - sizeof(VS_FIXEDFILEINFO)) * 4 - info->wLength; len = MultiByteToWideChar(CP_ACP, 0, *lplpBuffer, -1, lpBufferW + pos, max/sizeof(WCHAR) - pos ); *lplpBuffer = lpBufferW + pos; *puLen = len; } return ret; } return VersionInfo32_QueryValue(info, lpSubBlock, lplpBuffer, puLen); } /****************************************************************************** * testFileExistenceA * * Tests whether a given path/file combination exists. If the file does * not exist, the return value is zero. If it does exist, the return * value is non-zero. * * Revision history * 30-May-1997 Dave Cuthbert (dacut@ece.cmu.edu) * Original implementation * */ static int testFileExistenceA( char const * path, char const * file, BOOL excl ) { char filename[1024]; int filenamelen; OFSTRUCT fileinfo; fileinfo.cBytes = sizeof(OFSTRUCT); strcpy(filename, path); filenamelen = strlen(filename); /* Add a trailing \ if necessary */ if(filenamelen) { if(filename[filenamelen - 1] != '\\') strcat(filename, "\\"); } else /* specify the current directory */ strcpy(filename, ".\\"); /* Create the full pathname */ strcat(filename, file); return (OpenFile(filename, &fileinfo, OF_EXIST | (excl ? OF_SHARE_EXCLUSIVE : 0)) != HFILE_ERROR); } /****************************************************************************** * testFileExistenceW */ static int testFileExistenceW( const WCHAR *path, const WCHAR *file, BOOL excl ) { char *filename; DWORD pathlen, filelen; int ret; OFSTRUCT fileinfo; fileinfo.cBytes = sizeof(OFSTRUCT); pathlen = WideCharToMultiByte( CP_ACP, 0, path, -1, NULL, 0, NULL, NULL ); filelen = WideCharToMultiByte( CP_ACP, 0, file, -1, NULL, 0, NULL, NULL ); filename = HeapAlloc( GetProcessHeap(), 0, pathlen+filelen+2 ); WideCharToMultiByte( CP_ACP, 0, path, -1, filename, pathlen, NULL, NULL ); /* Add a trailing \ if necessary */ if (pathlen > 1) { if (filename[pathlen-2] != '\\') strcpy( &filename[pathlen-1], "\\" ); } else /* specify the current directory */ strcpy(filename, ".\\"); WideCharToMultiByte( CP_ACP, 0, file, -1, filename+strlen(filename), filelen, NULL, NULL ); ret = (OpenFile(filename, &fileinfo, OF_EXIST | (excl ? OF_SHARE_EXCLUSIVE : 0)) != HFILE_ERROR); HeapFree( GetProcessHeap(), 0, filename ); return ret; } /***************************************************************************** * VerFindFileA [VERSION.@] * * Determines where to install a file based on whether it locates another * version of the file in the system. The values VerFindFile returns are * used in a subsequent call to the VerInstallFile function. * * Revision history: * 30-May-1997 Dave Cuthbert (dacut@ece.cmu.edu) * Reimplementation of VerFindFile from original stub. */ DWORD WINAPI VerFindFileA( DWORD flags, LPCSTR lpszFilename, LPCSTR lpszWinDir, LPCSTR lpszAppDir, LPSTR lpszCurDir, PUINT lpuCurDirLen, LPSTR lpszDestDir, PUINT lpuDestDirLen ) { DWORD retval = 0; const char *curDir; const char *destDir; unsigned int curDirSizeReq; unsigned int destDirSizeReq; char systemDir[MAX_PATH]; /* Print out debugging information */ TRACE("flags = %x filename=%s windir=%s appdir=%s curdirlen=%p(%u) destdirlen=%p(%u)\n", flags, debugstr_a(lpszFilename), debugstr_a(lpszWinDir), debugstr_a(lpszAppDir), lpuCurDirLen, lpuCurDirLen ? *lpuCurDirLen : 0, lpuDestDirLen, lpuDestDirLen ? *lpuDestDirLen : 0 ); /* Figure out where the file should go; shared files default to the system directory */ GetSystemDirectoryA(systemDir, sizeof(systemDir)); curDir = ""; destDir = ""; if(flags & VFFF_ISSHAREDFILE) { destDir = systemDir; /* Were we given a filename? If so, try to find the file. */ if(lpszFilename) { if(testFileExistenceA(destDir, lpszFilename, FALSE)) curDir = destDir; else if(lpszAppDir && testFileExistenceA(lpszAppDir, lpszFilename, FALSE)) { curDir = lpszAppDir; retval |= VFF_CURNEDEST; } } } else /* not a shared file */ { if(lpszAppDir) { destDir = lpszAppDir; if(lpszFilename) { if(testFileExistenceA(destDir, lpszFilename, FALSE)) curDir = destDir; else if(testFileExistenceA(systemDir, lpszFilename, FALSE)) { curDir = systemDir; retval |= VFF_CURNEDEST; } } } } /* Check to see if the file exists and is in use by another application */ if (lpszFilename && testFileExistenceA(curDir, lpszFilename, FALSE)) { if (lpszFilename && !testFileExistenceA(curDir, lpszFilename, TRUE)) retval |= VFF_FILEINUSE; } curDirSizeReq = strlen(curDir) + 1; destDirSizeReq = strlen(destDir) + 1; /* Make sure that the pointers to the size of the buffers are valid; if not, do NOTHING with that buffer. If that pointer is valid, then make sure that the buffer pointer is valid, too! */ if(lpuDestDirLen && lpszDestDir) { if (*lpuDestDirLen < destDirSizeReq) retval |= VFF_BUFFTOOSMALL; lstrcpynA(lpszDestDir, destDir, *lpuDestDirLen); *lpuDestDirLen = destDirSizeReq; } if(lpuCurDirLen && lpszCurDir) { if(*lpuCurDirLen < curDirSizeReq) retval |= VFF_BUFFTOOSMALL; lstrcpynA(lpszCurDir, curDir, *lpuCurDirLen); *lpuCurDirLen = curDirSizeReq; } TRACE("ret = %u (%s%s%s) curdir=%s destdir=%s\n", retval, (retval & VFF_CURNEDEST) ? "VFF_CURNEDEST " : "", (retval & VFF_FILEINUSE) ? "VFF_FILEINUSE " : "", (retval & VFF_BUFFTOOSMALL) ? "VFF_BUFFTOOSMALL " : "", debugstr_a(lpszCurDir), debugstr_a(lpszDestDir)); return retval; } /***************************************************************************** * VerFindFileW [VERSION.@] */ DWORD WINAPI VerFindFileW( DWORD flags,LPCWSTR lpszFilename,LPCWSTR lpszWinDir, LPCWSTR lpszAppDir, LPWSTR lpszCurDir,PUINT lpuCurDirLen, LPWSTR lpszDestDir,PUINT lpuDestDirLen ) { static const WCHAR emptyW; DWORD retval = 0; const WCHAR *curDir; const WCHAR *destDir; unsigned int curDirSizeReq; unsigned int destDirSizeReq; WCHAR systemDir[MAX_PATH]; /* Print out debugging information */ TRACE("flags = %x filename=%s windir=%s appdir=%s curdirlen=%p(%u) destdirlen=%p(%u)\n", flags, debugstr_w(lpszFilename), debugstr_w(lpszWinDir), debugstr_w(lpszAppDir), lpuCurDirLen, lpuCurDirLen ? *lpuCurDirLen : 0, lpuDestDirLen, lpuDestDirLen ? *lpuDestDirLen : 0 ); /* Figure out where the file should go; shared files default to the system directory */ GetSystemDirectoryW(systemDir, sizeof(systemDir)/sizeof(WCHAR)); curDir = &emptyW; destDir = &emptyW; if(flags & VFFF_ISSHAREDFILE) { destDir = systemDir; /* Were we given a filename? If so, try to find the file. */ if(lpszFilename) { if(testFileExistenceW(destDir, lpszFilename, FALSE)) curDir = destDir; else if(lpszAppDir && testFileExistenceW(lpszAppDir, lpszFilename, FALSE)) { curDir = lpszAppDir; retval |= VFF_CURNEDEST; } } } else /* not a shared file */ { if(lpszAppDir) { destDir = lpszAppDir; if(lpszFilename) { if(testFileExistenceW(destDir, lpszFilename, FALSE)) curDir = destDir; else if(testFileExistenceW(systemDir, lpszFilename, FALSE)) { curDir = systemDir; retval |= VFF_CURNEDEST; } } } } if (lpszFilename && !testFileExistenceW(curDir, lpszFilename, TRUE)) retval |= VFF_FILEINUSE; curDirSizeReq = strlenW(curDir) + 1; destDirSizeReq = strlenW(destDir) + 1; /* Make sure that the pointers to the size of the buffers are valid; if not, do NOTHING with that buffer. If that pointer is valid, then make sure that the buffer pointer is valid, too! */ if(lpuDestDirLen && lpszDestDir) { if (*lpuDestDirLen < destDirSizeReq) retval |= VFF_BUFFTOOSMALL; lstrcpynW(lpszDestDir, destDir, *lpuDestDirLen); *lpuDestDirLen = destDirSizeReq; } if(lpuCurDirLen && lpszCurDir) { if(*lpuCurDirLen < curDirSizeReq) retval |= VFF_BUFFTOOSMALL; lstrcpynW(lpszCurDir, curDir, *lpuCurDirLen); *lpuCurDirLen = curDirSizeReq; } TRACE("ret = %u (%s%s%s) curdir=%s destdir=%s\n", retval, (retval & VFF_CURNEDEST) ? "VFF_CURNEDEST " : "", (retval & VFF_FILEINUSE) ? "VFF_FILEINUSE " : "", (retval & VFF_BUFFTOOSMALL) ? "VFF_BUFFTOOSMALL " : "", debugstr_w(lpszCurDir), debugstr_w(lpszDestDir)); return retval; } static LPBYTE _fetch_versioninfo(LPSTR fn,VS_FIXEDFILEINFO **vffi) { DWORD alloclen; LPBYTE buf; DWORD ret; alloclen = 1000; buf=HeapAlloc(GetProcessHeap(), 0, alloclen); if(buf == NULL) { WARN("Memory exausted while fetching version info!\n"); return NULL; } while (1) { ret = GetFileVersionInfoA(fn,0,alloclen,buf); if (!ret) { HeapFree(GetProcessHeap(), 0, buf); return NULL; } if (alloclen<*(WORD*)buf) { alloclen = *(WORD*)buf; HeapFree(GetProcessHeap(), 0, buf); buf = HeapAlloc(GetProcessHeap(), 0, alloclen); if(buf == NULL) { WARN("Memory exausted while fetching version info!\n"); return NULL; } } else { *vffi = (VS_FIXEDFILEINFO*)(buf+0x14); if ((*vffi)->dwSignature == 0x004f0049) /* hack to detect unicode */ *vffi = (VS_FIXEDFILEINFO*)(buf+0x28); if ((*vffi)->dwSignature != VS_FFI_SIGNATURE) WARN("Bad VS_FIXEDFILEINFO signature 0x%08x\n",(*vffi)->dwSignature); return buf; } } } static DWORD _error2vif(DWORD error) { switch (error) { case ERROR_ACCESS_DENIED: return VIF_ACCESSVIOLATION; case ERROR_SHARING_VIOLATION: return VIF_SHARINGVIOLATION; default: return 0; } } /****************************************************************************** * VerInstallFileA [VERSION.@] */ DWORD WINAPI VerInstallFileA( DWORD flags,LPCSTR srcfilename,LPCSTR destfilename,LPCSTR srcdir, LPCSTR destdir,LPCSTR curdir,LPSTR tmpfile,PUINT tmpfilelen ) { LPCSTR pdest; char destfn[260],tmpfn[260],srcfn[260]; HFILE hfsrc,hfdst; DWORD attr,xret,tmplast; LONG ret; LPBYTE buf1,buf2; OFSTRUCT ofs; TRACE("(%x,%s,%s,%s,%s,%s,%p,%d)\n", flags,srcfilename,destfilename,srcdir,destdir,curdir,tmpfile,*tmpfilelen ); xret = 0; if (!srcdir || !srcfilename) return VIF_CANNOTREADSRC; sprintf(srcfn,"%s\\%s",srcdir,srcfilename); if (!destdir || !*destdir) pdest = srcdir; else pdest = destdir; sprintf(destfn,"%s\\%s",pdest,destfilename); hfsrc=LZOpenFileA(srcfn,&ofs,OF_READ); if (hfsrc < 0) return VIF_CANNOTREADSRC; sprintf(tmpfn,"%s\\%s",pdest,destfilename); tmplast=strlen(pdest)+1; attr = GetFileAttributesA(tmpfn); if (attr != INVALID_FILE_ATTRIBUTES) { if (attr & FILE_ATTRIBUTE_READONLY) { LZClose(hfsrc); return VIF_WRITEPROT; } /* FIXME: check if file currently in use and return VIF_FILEINUSE */ } attr = INVALID_FILE_ATTRIBUTES; if (flags & VIFF_FORCEINSTALL) { if (tmpfile[0]) { sprintf(tmpfn,"%s\\%s",pdest,tmpfile); tmplast = strlen(pdest)+1; attr = GetFileAttributesA(tmpfn); /* if it exists, it has been copied by the call before. * we jump over the copy part... */ } } if (attr == INVALID_FILE_ATTRIBUTES) { char *s; GetTempFileNameA(pdest,"ver",0,tmpfn); /* should not fail ... */ s=strrchr(tmpfn,'\\'); if (s) tmplast = s-tmpfn; else tmplast = 0; hfdst = OpenFile(tmpfn,&ofs,OF_CREATE); if (hfdst == HFILE_ERROR) { LZClose(hfsrc); return VIF_CANNOTCREATE; /* | translated dos error */ } ret = LZCopy(hfsrc,hfdst); _lclose(hfdst); if (ret < 0) { /* translate LZ errors into VIF_xxx */ switch (ret) { case LZERROR_BADINHANDLE: case LZERROR_READ: case LZERROR_BADVALUE: case LZERROR_UNKNOWNALG: xret = VIF_CANNOTREADSRC; break; case LZERROR_BADOUTHANDLE: case LZERROR_WRITE: xret = VIF_OUTOFSPACE; break; case LZERROR_GLOBALLOC: case LZERROR_GLOBLOCK: xret = VIF_OUTOFMEMORY; break; default: /* unknown error, should not happen */ FIXME("Unknown LZCopy error %d, ignoring.\n", ret); xret = 0; break; } if (xret) { LZClose(hfsrc); return xret; } } } if (!(flags & VIFF_FORCEINSTALL)) { VS_FIXEDFILEINFO *destvffi,*tmpvffi; buf1 = _fetch_versioninfo(destfn,&destvffi); if (buf1) { buf2 = _fetch_versioninfo(tmpfn,&tmpvffi); if (buf2) { char *tbuf1,*tbuf2; static const CHAR trans_array[] = "\\VarFileInfo\\Translation"; UINT len1,len2; len1=len2=40; /* compare file versions */ if ((destvffi->dwFileVersionMS > tmpvffi->dwFileVersionMS)|| ((destvffi->dwFileVersionMS==tmpvffi->dwFileVersionMS)&& (destvffi->dwFileVersionLS > tmpvffi->dwFileVersionLS) ) ) xret |= VIF_MISMATCH|VIF_SRCOLD; /* compare filetypes and filesubtypes */ if ((destvffi->dwFileType!=tmpvffi->dwFileType) || (destvffi->dwFileSubtype!=tmpvffi->dwFileSubtype) ) xret |= VIF_MISMATCH|VIF_DIFFTYPE; if (VerQueryValueA(buf1,trans_array,(LPVOID*)&tbuf1,&len1) && VerQueryValueA(buf2,trans_array,(LPVOID*)&tbuf2,&len2) ) { /* Do something with tbuf1 and tbuf2 * generates DIFFLANG|MISMATCH */ } HeapFree(GetProcessHeap(), 0, buf2); } else xret=VIF_MISMATCH|VIF_SRCOLD; HeapFree(GetProcessHeap(), 0, buf1); } } if (xret) { if (*tmpfilelen