Hi,
I'm using aGetFileVersion() to check/display the version numbers of certain DLL's and OCX's. I have two questions:
1 On my machine I have no success with Vfp7r.dll (my VFP is 7). Is it displayed on your machine?
2 How can I know for sure that these are the DLL's/OCX's that are used, most notably the runtime files?
Help is very welcome.
PROCEDURE PrintVersionDllsOcxs
PrintVersion1DllOcx( "vfp6r.dll" )
PrintVersion1DllOcx( "vfp6renu.dll" )
PrintVersion1DllOcx( "vfp7r.dll" )
PrintVersion1DllOcx( "vfp7renu.dll" )
PrintVersion1DllOcx( "comctl32.ocx" )
PrintVersion1DllOcx( "mscomctl.ocx" )
PrintVersion1DllOcx( "msvcr70.dll" )
PrintVersion1DllOcx( "oleaut32.dll" )
PrintVersion1DllOcx( "olepro32.dll" )
PrintVersion1DllOcx( "asycfilt.dll" )
PrintVersion1DllOcx( "msvcrt.dll" )
RETURN
FUNCTION PrintVersion1DllOcx
lparameter tcFile
local lnRetVal
local array laFileVer[ 1 ]
? padr( tcFile, 15 )
lnRetVal = aGetFileVersion( laFileVer, tcFile )
?? iif( lnRetVal = 0, '?', laFileVer[ 4 ] )
RETURN
Groet,
Peter de Valença
Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.
