If you are using VFP6+
DIMENSION aVerInfo[1]
=AGETFILEVERSION('aVerInfo',alltrim(SYS(16,1)))
THISFORM.lblVersion.CAPTION = 'Version: '+ALLTRIM(verInfo[1,4])
SYS(16,0) or SYS(16,1) will give you the name of the exe.
HTH
Henri
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement