Prev: get a window not a console
Next: Changing the wallpaper with Python
From: google on 3 Jul 2008 11:07
Hi,

I need to update the file and product version numbers of EXEs and DLLs
written in VB6. After doing some research on the net and using some
examples written in C++ I've come up with the code below. When I run
it the return values of the API calls indicate that they succeeded but
the version number of my sample EXE remain unchanged. Can anyone tell
me what I'm doing wrong?

Option Explicit

Private Const RT_VERSION As Long = 16

Private Const LANG_NEUTRAL As Integer = &H0
Private Const LANG_ENGLISH As Long = &H9

Private Declare Function GetFileVersionInfoSize Lib "Version.dll"
Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String,
lpdwHandle As Long) As Long
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 BeginUpdateResource Lib "KERNEL32" Alias
"BeginUpdateResourceA" (ByVal pFileName As String, ByVal
bDeleteExistingResources As Long) As Long
Private Declare Function UpdateResource Lib "KERNEL32" Alias
"UpdateResourceA" (ByVal hUpdate As Long, ByVal lpType As Long, ByVal
lpName As Long, ByVal wLanguage As Long, lpData() As Byte, ByVal
cbData As Long) As Long
Private Declare Function EndUpdateResource Lib "KERNEL32" Alias
"EndUpdateResourceA" (ByVal hUpdate As Long, ByVal fDiscard As Long)
As Long

Private Sub UpdateFileVersion(ByVal vstrFilePath As String)

Dim llngHandle As Long
Dim llngVersionInfoLength As Long
Dim llngResult As Long
Dim lbytBuffer() As Byte
Dim llngResourceHandle As Long
Dim llngReturnValue As Long

llngVersionInfoLength = GetFileVersionInfoSize(vstrFilePath,
llngHandle)

If llngVersionInfoLength <> 0 Then
ReDim lbytBuffer(llngVersionInfoLength - 1)

llngResult = GetFileVersionInfo(vstrFilePath, 0,
llngVersionInfoLength, lbytBuffer(0))

If llngResult <> 0 Then
'QUICK AND DIRTY UPDATING OF VERSION NUMBER, JUST TO CHECK
IT WORKS

'UPDATE FILE VERSION NUMBER
lbytBuffer(50) = 5
lbytBuffer(48) = 6
lbytBuffer(54) = 7
lbytBuffer(52) = 8

'UPDATE PRODUCT VERSION NUMBER
lbytBuffer(58) = 5
lbytBuffer(56) = 6
lbytBuffer(62) = 7
lbytBuffer(60) = 8

llngResourceHandle = BeginUpdateResource(vstrFilePath, 0)

If llngResourceHandle <> 0 Then
llngReturnValue = UpdateResource(llngResourceHandle,
RT_VERSION, 1, MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), lbytBuffer,
llngVersionInfoLength)

If llngReturnValue = 0 Then
MsgBox "Unable to update resource (" &
Err.LastDllError & ")", vbExclamation, Me.Caption
End If

llngReturnValue =
EndUpdateResource(llngResourceHandle, 0)

If llngReturnValue <> 0 Then
MsgBox "Version number updated", vbInformation,
Me.Caption
Else
MsgBox "Unable to write updated resource (" &
Err.LastDllError & ")", vbExclamation, Me.Caption
End If
Else
MsgBox "Unable to retrieve resource update handle",
vbExclamation, Me.Caption
End If
Else
MsgBox "Unable to get file version info (" &
Err.LastDllError & ")", vbExclamation, Me.Caption
End If
Else
MsgBox "Unable to get file version info size (" &
Err.LastDllError & ")", vbExclamation, Me.Caption
End If

End Sub

Public Function MAKELANGID(ByVal vintPrimaryLanguage As Integer, ByVal
vintSubLanguage As Integer) As Long

MAKELANGID = (vintSubLanguage * 1024) Or vintPrimaryLanguage

End Function


As it says in the comments I intend to find a more elegant way of
setting the version numbers themselves but I'm just using a quick and
dirty method for now to check it works.

I realise that most of you in this group probably don't use VB6 but
any help would be greatly appreciated.

Thanks in advance,

Colin
From: Jerome on 3 Jul 2008 15:13
google(a)colinbaker.me.uk wrote:

>
> As it says in the comments I intend to find a more elegant way of
> setting the version numbers themselves but I'm just using a quick and
> dirty method for now to check it works.
>
> I realise that most of you in this group probably don't use VB6 but
> any help would be greatly appreciated.
>
> Thanks in advance,
>
> Colin

You must use VerQueryValueW() to get actual data and size
like : http://whitekid.tistory.com/archive/20080131
 | 
Pages: 1
Prev: get a window not a console
Next: Changing the wallpaper with Python