DOCUMENT:Q160042 11-JAN-2001 [vbwin]
TITLE :HOWTO: Retrieve Language and Code Page id Using VerQueryValue
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER:WINDOWS:4.0,6.0
OPER/SYS:
KEYWORDS:kbAPI kbVBp kbVBp400 kbVBp500 kbVBp600 kbGrpDSVB kbDSupport
======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:
- Microsoft Visual Basic Learning Edition for Windows, version 6.0
- Microsoft Visual Basic Professional Edition for Windows, version 6.0
- Microsoft Visual Basic Enterprise Edition for Windows, version 6.0
- Microsoft Visual Basic Standard Edition, 32-bit, for Windows, version 4.0
- Microsoft Visual Basic Professional Edition, 32-bit, for Windows, version 4.0
- Microsoft Visual Basic Enterprise Edition, 32-bit, for Windows, version 4.0
-------------------------------------------------------------------------------
SUMMARY
=======
Using the VerQueryValue API, the language identifier and the character set
identifier can be retrieved from the version-information resource within a file.
You can concatenate these two identifiers to form a hexadecimal string and pass
the string to another VerQueryValue call to retrieve the following version
information: CompanyName, FileDescription, FileVersion, InternalName,
LegalCopyright, OriginalFileName, ProductName, and ProductVersion.
This article presents a Visual Basic 4.0 32-bit sample application that retrieves
the language identifier, the character set identifier, and the information
mentioned above for the Windows system file, gdi32.dll.
This article also supplements the following Microsoft Knowledge Base article that
extracts a VS_FIXEDFILEINFO structure from a file's version- information
resource:
Q139491 How To Use Functions in VERSION.DLL - A 32-bit Sample App
MORE INFORMATION
================
This section shows you how to create a sample project that displays file
information for the system file gdi32.dll in a list box by using the
VerQueryValue function. The section assumes you are familiar with using Visual
Basic to access the Windows API functions:
To Create The Sample Project
----------------------------
1. Start a new Standard EXE project in Visual Basic. Form1 is created by
default.
2. Add a command button and a listbox control to the Form1 form:
3. Copy the following code to the Code window of the Form1 form:
Option Explicit
Private Declare Function GetFileVersionInfo Lib "Version.dll" _
Alias "GetFileVersionInfoA" _
(ByVal lptstrFilename As String, _
ByVal dwhandle As Long, _
ByVal dwlen As Long, _
lpData As Any) As Long
Private Declare Function GetFileVersionInfoSize Lib "Version.dll" _
Alias "GetFileVersionInfoSizeA" _
(ByVal lptstrFilename As String, _
lpdwHandle As Long) As Long
Private Declare Function VerQueryValue Lib "Version.dll" _
Alias "VerQueryValueA" _
(pBlock As Any, _
ByVal lpSubBlock As String, _
lplpBuffer As Any, _
puLen As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" _
Alias "GetSystemDirectoryA" _
(ByVal Path As String, _
ByVal cbBytes As Long) As Long
Private Declare Sub MoveMemory Lib "kernel32" _
Alias "RtlMoveMemory" _
(dest As Any, _
ByVal Source As Long, _
ByVal Length As Long)
Private Declare Function lstrcpy Lib "kernel32" _
Alias "lstrcpyA" _
(ByVal lpString1 As String, _
ByVal lpString2 As Long) As Long
Private Sub Command1_Click()
Dim Buffer As String
Dim rc As Long
Dim FullFileName As String
'*** We will check the FileDescription of the gdi32.dll****
Buffer = String(255, 0)
rc = GetSystemDirectory(Buffer, Len(Buffer))
Buffer = LCase$(Mid$(Buffer, 1, InStr(Buffer, Chr(0)) - 1))
FullFileName = Buffer & "\gdi32.dll"
Dim lBufferLen As Long, lDummy As Long
'*** Get size ****
lBufferLen = GetFileVersionInfoSize(FullFileName, lDummy)
If lBufferLen < 1 Then
MsgBox "No Version Info available!"
Exit Sub
End If
Dim sBuffer() As Byte
ReDim sBuffer(lBufferLen)
rc = GetFileVersionInfo(FullFileName, _
0&, _
lBufferLen, _
sBuffer(0))
If rc = 0 Then
MsgBox "GetFileVersionInfo failed."
Exit Sub
End If
Dim lVerPointer As Long
rc = VerQueryValue(sBuffer(0), _
"\VarFileInfo\Translation", _
lVerPointer, _
lBufferLen)
If rc = 0 Then
MsgBox "VerQueryValue failed."
Exit Sub
End If
'lVerPointer is a pointer to four 4 bytes of Hex number,
'first two bytes are language id, and last two bytes are code
'page. However, Lang_Charset_String needs a string of
'4 hex digits, the first two characters correspond to the
'language id and last two the last two character correspond
'to the code page id.
Dim bytebuffer(255) As Byte
MoveMemory bytebuffer(0), lVerPointer, lBufferLen
Dim Lang_Charset_String As String
Dim HexNumber As Long
HexNumber = bytebuffer(2) + bytebuffer(3) * &H100 + _
bytebuffer(0) * &H10000 + bytebuffer(1) * &H1000000
Lang_Charset_String = Hex(HexNumber)
'now we change the order of the language id and code page
'and convert it into a string representation.
'For example, it may look like 040904E4
'Or to pull it all apart:
'04------ = SUBLANG_ENGLISH_USA
'--09---- = LANG_ENGLISH
' ----04E4 = 1252 = Codepage for Windows:Multilingual
Do While Len(Lang_Charset_String) < 8
Lang_Charset_String = "0" & Lang_Charset_String
Loop
List1.Clear
Dim strVersionInfo(7) As String
strVersionInfo(0) = "CompanyName"
strVersionInfo(1) = "FileDescription"
strVersionInfo(2) = "FileVersion"
strVersionInfo(3) = "InternalName"
strVersionInfo(4) = "LegalCopyright"
strVersionInfo(5) = "OriginalFileName"
strVersionInfo(6) = "ProductName"
strVersionInfo(7) = "ProductVersion"
Dim i As Integer
Dim strTemp As String
For i = 0 To 7
Buffer = String(255, 0)
strTemp = "\StringFileInfo\" & Lang_Charset_String _
& "\" & strVersionInfo(i)
rc = VerQueryValue(sBuffer(0), strTemp, _
lVerPointer, lBufferLen)
If rc = 0 Then
MsgBox "VerQueryValue failed at" & i
Exit Sub
End If
lstrcpy Buffer, lVerPointer
Buffer = Mid$(Buffer, 1, InStr(Buffer, Chr(0)) - 1)
List1.AddItem strVersionInfo(i) & ": " & Buffer
Next i
End Sub
4. On the Run menu, select Start, or press the F5 key to start the program.
Click the Command1 command button. The file information for gdi32.dll appears
in the text box.
(c) Microsoft Corporation 1999, All Rights Reserved.
Contributions by Wei Hua, Microsoft Corporation
Additional query words:
======================================================================
Keywords : kbAPI kbVBp kbVBp400 kbVBp500 kbVBp600 kbGrpDSVB kbDSupport
Technology : kbVBSearch kbAudDeveloper kbZNotKeyword6 kbZNotKeyword2 kbVB600Search kbVBA600 kbVB600 kbVB400Search kbVB400
Version : WINDOWS:4.0,6.0
Issue type : kbhowto
=============================================================================
THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.
Copyright Microsoft Corporation 2001.