Mike B.-
Yes it does seem to work fine, I tweaked the pause and renamed the var to
store it for use in the RFF to display for Tech and End-User viewing use. I
suppose my use of renaming the vversion to vversion1... had some impact that
I was not aware of? I am not going to worry because it works fine now. I
have talked about doing this for sooooo long I had to finial do it for both
the tech-dept and users. It should make a lot of lives easier.
Thank you again to ALL the R-esponders of this email!! Dennis you were
right on the pause-still not understanding why the difference in var names
but like you said, " It's that "most always" that trips me up!!!" and then
some also. Not knowing the exact internals of the dll it is hard to say
what. But I am happy with it working as it is.
SET VAR vfilename TEXT = NULL
SET VAR varg ='FileVersion'
SET VAR vversion TEXT = NULL
SET VAR vaction = 'ByName'
IF (chkfunc('GetVerInfo')) = 0 THEN
STDCALL function 'GetVerInfo' (ptr text, ptr text, ptr text) : text
ENDIF
SET VAR vfilename = 'C:\WINDOWS\system32\RBENGINE76.DLL'
SET VAR vversion = (dlcall('FileUtil.dll', 'GetVerInfo', vfilename, varg,
vaction))
PAUSE for 1
set var vfilename1 = .vversion
SET VAR vfilename = 'C:\WINDOWS\system32\RB76_32.DLL'
SET VAR vversion = (dlcall('FileUtil.dll', 'GetVerInfo', vfilename, varg,
vaction))
PAUSE for 1
set var vfilename2 = .vversion
RETURN
Sincerely,
Paul D.
Mike, I was using a earlier ver/command that was only checking one file.
It was not up until recent I decide to check ALL files.
-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of Mikeb
Sent: Wednesday, December 02, 2009 3:57 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: DLL call
Try the following (it has worked without fail repeatedly for me):
SET VAR vfilename TEXT = NULL
SET VAR varg ='FileVersion'
SET VAR vversion TEXT = NULL
SET VAR vaction = 'ByName'
IF (chkfunc('GetVerInfo')) = 0 THEN
STDCALL function 'GetVerInfo' (ptr text, ptr text, ptr text) : text
ENDIF
SET VAR vfilename = 'C:\WINDOWS\system32\RBENGINE76.DLL'
SET VAR vversion = (dlcall('FileUtil.dll', 'GetVerInfo', vfilename, varg,
vaction))
PAUSE 2 USING .vversion
SET VAR vfilename = 'C:\WINDOWS\system32\RB76_32.DLL'
SET VAR vversion = (dlcall('FileUtil.dll', 'GetVerInfo', vfilename, varg,
vaction))
PAUSE 2 USING .vversion
RETURN
