Version information about ActiveX EXE 1

gleason · Dec 20, 1999

This may be similar to the question posted about a month ago by "seyed". 
 
I would like to get and display the version of a third-party, ActiveX executable called by my application. Looking in MSDEV, I have come up with the following example (actually lifted directly from the help files!): 
 
(PS - sorry about the horrible indentation) 
 
static DWORD dwVerInfoSize; 
static DWORD dwVerHnd; 
static char szGetName[256]; 
static WORD wRootLen; 
static int i; 
static UINT uVersionLen; 
static HFONT hfontDlg; 
static LPSTR lpVersion; 
BOOL bRetCode; 
static char szResult[256]; 
 
dwVerInfoSize = GetFileVersionInfoSize ( 
"C:\\WINDOWS\\SYSTEM\\PROGRAM.EXE", 
&dwVerHnd); 
if(dwVerInfoSize) { 
LPSTR lpstrVffInfo; 
HANDLE hMem; 
hMem = GlobalAlloc(GMEM_MOVEABLE, dwVerInfoSize); 
lpstrVffInfo = (char *)GlobalLock(hMem); 
bRetCode = GetFileVersionInfo 
("C:\\WINDOWS\\SYSTEM\\PROGRAM.EXE", 
dwVerHnd, 
dwVerInfoSize, 
lpstrVffInfo); 
wRootLen = lstrlen(szGetName); 
uVersionLen = 0; 
lpVersion = NULL; 
bRetCode = VerQueryValue((LPVOID)lpstrVffInfo, 
TEXT("\\StringFileInfo\\040904E4\\FileVersion", 
(LPVOID *)&lpVersion, 
(PUINT)&uVersionLen); 
 
if (bRetCode && uVersionLen && lpVersion) 
lstrcpy(szResult, lpVersion); 
 
GlobalUnlock(hMem); 
GlobalFree(hMem); 
} // if (dwVerInfoSize) 
 
What Happens: 
 
When I call GetFileVersionInfoSize, dwVerInfoSize is always assigned the value of 983. (good, I think) 
 
When I call GetFileVersionInfo, bRetCode is 1 (TRUE) and 
lpstrVffInfo gets set. 
 
BUT when I call VerQueryValue, bRetCode is 0, lpVersion is 
NULL and uVersionLen is zero. I have tried changing the 
second parameter to File Version, FileDescription, File 
Description, all with the exact same results. 
 
Can you help me out? 
 
Thanks much! 
 
Pat Gleason 
<A HREF="mailto:gleason@megsinet.net">gleason@megsinet.net</A> 
Pat Gleason <a href=mailto:gleason@megsinet.net>gleason@megsinet.net</a> <a href= > </a>

chiph · Dec 21, 1999

Is this a 16-bit Active-x executable (.dll, .exe)? The version info functions in Win32 don't seem to be able to see the verinfo on a 16-bit executable. I don't know how MS does it, since you can use the shell to display it (right-click, properties, version). But other than that, your code looks pretty good. Here's my old VB4 16-bit code to do it, you should be able to modify it to 32-bit standards. I'm a little embarassed by the code now, but it's worked for years... 
 
 
Declare Function GetFileVersionInfoSize Lib "ver.dll" (ByVal lpszFileName As String, lpdwHandle As Long) As Long 
Declare Function GetFileVersionInfo Lib "ver.dll" (ByVal lpszFileName As String, ByVal lpdwHandle As Long, ByVal cbbuf As Long, ByVal lpvdata As String) As Integer 
Declare Function VerQueryValue Lib "ver.dll" (ByVal lpvBlock As String, ByVal lpszSubBlock As String, lplpBuffer As Long, lpcb As Integer) As Integer 
Declare Function lstrcpyn Lib "Kernel" (ByVal lpszString1 As Any, ByVal lpszString2 As Long, ByVal cChars As Integer) As Long 
 
Global Const LOCATION_WIN = 1 
Global Const LOCATION_WINSYS = 2 
Global Const LOCATION_APP = 3 
Global Const LOCATION_ROOT = 4 
 
Public Const WF_80x87 = &H400 
Public Const WF_CPU086 = &H40 
Public Const WF_CPU186 = &H80 
Public Const WF_CPU286 = &H2 
Public Const WF_CPU386 = &H4 
Public Const WF_CPU486 = &H8 
Public Const WF_ENHANCED = &H20 
Public Const WF_STANDARD = &H10 
 
Type ModuleInfoType 
ModuleName As String 
Location As Integer 
Version As String 
Size As String 
FDate As String 
End Type 
 
 
'******************************************************* 
Function GetFileVersion$(FileToCheck$) 
Dim lpdwHandle&, VersionInfoSize&, lplpBuffer&, StrCpy&, TransValue& 
Dim lpvdata$, TransString$, FixedStr$, Char$, NextChar$, TransTable$ 
Dim VersionInfo%, lpcb%, ptrFixed%, pString%, i%, ZeroLoc% 
 
On Error Resume Next 
 
'Find out if version info is present 
VersionInfoSize& = GetFileVersionInfoSize(FileToCheck$, lpdwHandle&) 
 
If VersionInfoSize& = 0 Then 
'Version info not present 
GetFileVersion$ = "" 
Exit Function '<------- 
End If 
 
'Pre-Allocate a string the same size as the VersionInfo, then get the info itself 
lpvdata$ = String(VersionInfoSize&, Chr$(0)) 
VersionInfo% = GetFileVersionInfo(FileToCheck$, lpdwHandle&, VersionInfoSize&, lpvdata$) 
 
ptrFixed% = VerQueryValue(lpvdata$, "\FILEVERSION", lplpBuffer&, lpcb%) 
 
If ptrFixed% = 0 Then 
' Take a shot with the hardcoded TransString 
TransString$ = "040904E4" 
pString% = VerQueryValue(lpvdata$, "\StringFileInfo\" & TransString$ & "\CompanyName", lplpBuffer&, lpcb%) 
 
If pString% <> 0 Then 
GoTo GetValues 
End If 
 
ptrFixed% = VerQueryValue(lpvdata$, "\", lplpBuffer&, lpcb%) 
 
If ptrFixed% = 0 Then 
GetFileVersion$ = "" 
Exit Function '<------- 
Else 
TransString$ = "" 
FixedStr$ = String(lpcb% + 1, Chr(0)) 
StrCpy& = lstrcpyn(FixedStr$, lplpBuffer&, lpcb% + 1) 
 
For i% = lpcb% To 1 Step -1 
Char$ = Hex(Asc(Mid(FixedStr$, i%, 1))) 
 
If Len(Char$) = 1 Then 
Char$ = "0" + Char$ 
End If 
 
TransString$ = TransString$ + Char$ 
 
If Len(TransString$ & NextChar$) Mod 8 = 0 Then 
TransString$ = "&H" & TransString$ 
TransValue& = Val(TransString$) 
TransString$ = "" 
End If 
 
Next i% 
End If 
End If 
 
TransTable$ = String(lpcb% + 1, Chr(0)) 
TransString$ = String(0, Chr(0)) 
StrCpy& = lstrcpyn(TransTable$, lplpBuffer&, lpcb% + 1) 
 
For i = 1 To lpcb% 
Char$ = Hex(Asc(Mid(TransTable$, i, 1))) 
 
If Len(Char$) = 1 Then 
Char$ = "0" + Char$ 
End If 
 
If Len(TransString$ & NextChar$) Mod 4 = 0 Then 
NextChar$ = Char$ 
Else 
TransString$ = TransString$ + Char$ + NextChar$ 
NextChar$ = "" 
Char$ = "" 
End If 
Next i 
 
GetValues: 
pString% = VerQueryValue(lpvdata$, "\StringFileInfo\" & TransString$ & "\FileVersion", lplpBuffer&, lpcb%) 
 
If pString% = 1 Then 
TransTable$ = String(lpcb%, Chr(0)) 
StrCpy& = lstrcpyn(TransTable$, lplpBuffer&, lpcb% + 1) 
 
'Convert all nulls to spaces 
ZeroLoc% = InStr(TransTable$, Chr$(0)) 
While ZeroLoc% > 0 
Mid$(TransTable$, ZeroLoc%, 1) = " " 
ZeroLoc% = InStr(TransTable$, Chr$(0)) 
Wend 
 
GetFileVersion$ = TransTable$ 
Else 
GetFileVersion$ = "" 
End If 
 
End Function 
 
 
Chip H.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Version information about ActiveX EXE 1

gleason

Programmer

chiph

Programmer

Similar threads

Part and Inventory Search

Sponsor