Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Version
Message
De
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:
01091267
Vues:
16
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?
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform