Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Version
Message
 
 
À
29/01/2006 11:18:52
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Windows 2000 Server
Database:
Visual FoxPro
Divers
Thread ID:
01091154
Message ID:
01091275
Vues:
12
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
>>>>
--sb--
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform