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
----- Original Message -----
From: "Paul InterlockInfo" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Wednesday, December 02, 2009 2:39 PM
Subject: [RBASE-L] - Re: DLL call
I cannot help myself so here it goes - brew! "Folgers or Maxwell House"
but not "Starbucks"
This is a dll that was posted months ago on the list. It does work - I
just cannot make it work more than once and return var that I need. The
one
I get is perfect. As far as what it does- It gets file information and
Mike
B did a great job writing it. But I can only get it to write once. I
would
post the code but it is not mine (Mikes in Delphi or C++).
I would ask that we hold this thread for about 12 days and I will restart
it
then. Mike said he will look into it and I can send him what I got in 10
days or so. I am sure Mike B. will post the results or I will. I thank
everybody that helped, and I learned a lot. What a great group this
RList
is and the RBTI support team.
Thank you in advance for waiting 12 days.
Sincerely,
Paul D.
From: [email protected] [mailto:[email protected]] On Behalf Of Dennis
McGrath
Sent: Wednesday, December 02, 2009 2:09 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: DLL call
Is this a home brew dll???
What does it do?
