Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Conocer el nombre del EXE desde dentro de la Aplicación

135 views
Skip to first unread message

Pere Pujol i Espuña

unread,
Nov 2, 2000, 4:11:10 PM11/2/00
to

Hola a todos:

Se me presenta una duda que no se como resolver.
Estoy creando una clase que presente el típico form Acerca de.....
El problema que tengo, es que al intentar recojer el número de versión, la
descripción, el copyright de la aplicación, etc, mediante la fincion
AGETFILEVERSION necesito saber el nombre del archivo EXE, sino no puedo
recibir los datos. Bien, resulta que para las variaciones que hago del
programa para cada cliente, le cambio el nombre del Exe a su instalación.

Sabe alguien de alguna función de VFP o (supongo que deberá ser asi)
mediante la API de windows como conocer el nombre del Exe que estoy
ejecutando?

Ya he probado con sys(16) y con program() pero lo que devuelven esel nombre
dle PRG inicial, o el nombre del Runtime de VFP pero no el nombre del Exe.

Gracias por adelantado.

Atentamente,
---------------------------------------
Pere Pujol i Espuña
mailto:ppu...@airtel.net
---------------------------------------

Daniel R. Rossnagel

unread,
Nov 2, 2000, 6:58:17 PM11/2/00
to
Invoca este procedimiento que te he desarrollado a continuacion, Recuerda
que funcionara unicamente en el ejecutable.


VersionNro=Nrovercion()


PROCEDURE Nrovercion

LOCAL nombrCpto,nombEXE,nroactual
LOCAL ARRAY Averarray(12)
nombrCpto=SYS(16,0)
nroactual=0

nombEXE=IIF(AT('\',nombrCpto)>0,SUBSTR(nombrCpto,RAT('\',nombrCpto)+1,LEN(no
mbrCpto)),nombrCpto)
IF AT(".EXE",UPPER(nombEXE))>0
=AGETFILEVERSION(Averarray,nombEXE)
IF NOT EMPTY(Averarray(11))
nroactual=ALLT(Averarray(11))
ENDIF
ENDIF


RETURN nroactual


"Pere Pujol i Espuña" <ppu...@airtel.net> escribió en el mensaje
news:OErYqFRRAHA.171@cppssbbsa04...

Juan Pablo Calabro

unread,
Nov 2, 2000, 6:39:32 PM11/2/00
to

Proba asi

a = sys(16,1)
DIMENSION afile(1)
resu = AGETFILEVERSION(afile,a)
ThisFormset.Form1.Label7.caption = afile[4]

Juan Pablo Calabro
Tucuman - Argentina


"Pere Pujol i Espuña" <ppu...@airtel.net> escribió en el mensaje
news:OErYqFRRAHA.171@cppssbbsa04...

Pere Pujol i Espuña

unread,
Nov 3, 2000, 5:50:54 AM11/3/00
to

Gracias a Todos. Solucionado.
Las dos formas sirven.

Atentamente,
===============================
Pere Pujol i Espuña
ADS Anàlisi/Disseny de Soft, S.L.
mailto:ppu...@adssl.com
===============================


0 new messages