Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Version
Message
From
29/01/2006 14:19:55
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows 2000 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01091154
Message ID:
01091277
Views:
17
Thanks Sergey, I'll make the change.

>Hi Grady,
>
>The ',4' in the help code belongs to the LEFT() function. The array is referenced properly 'aFiles[15]'. The fact that your code works is one of VFP idiosyncracies. It ignores the row specified and uses only column for 1-D arrays. Try
aFiles[1000, 4]
>
>>Hi Sergey. I found this code in VFP help and modified it to fit my situation. Oddly, it works.
>>
>>Here is the VFP Help example
>>
>>DIMENSION aFiles[1]
>>AGETFILEVERSION(aFiles,"VFP9.EXE")
>>? EVAL("0x"+LEFT(aFiles[15],4))
>>** Returns 1033 for US version
>>
>>
>>
>>>The array is one-dimentional
>>>GTBversion = aFiles[4]
>>>
>>>>Thanks Tore. Your lead led me to write this . . . which works for what I need.
>>>>
>>>>Private GTBversion
>>>>DIMENSION aFiles[1]
>>>>AGETFILEVERSION(aFiles,"GTB.EXE")
>>>>GTBversion = aFiles(15,4)
>>>>
>>>>
>>>>
>>>>
>>>>>>Hi folks:
>>>>>>
>>>>>>I am wondering if it is possible to put a version number for a build on a form's title bar? I've been playing with
>>>>>>
>>>>>>Object.VersionNumber[ = cBuildNumber]
>>>>>>
>>>>>>With no success so far.
>>>>>
>>>>>=AGETFILEVERSION(temp,'yourfile.exe')
>>>>>thisform.AddProperty('version',temp(4)) && Thisform.version= version number
>>>>>
I ain't skeert of nuttin eh?
Yikes! What was that?
Previous
Reply
Map
View

Click here to load this message in the networking platform