Version de un Ejecutable

[Mariano Filippi]

Tengo alguna forma de relacionar la version de un ejecutable por ej. a la
fecha del exe ?
Necesito saber la fecha del EXE, pero tengo el inconveniente que cuando se
copia a traves de FTP, me modifica estos datos.
Mi ejecutable me reporta a traves de Internet errores, pero es importante
para mi saber la fecha. Quisiera no tener que cambiar todos los días los
datos de la versión a traves del IDE.

[Bingen Ugaldebere]

Aquí­ tienes un ejemplo para saber la fecha exacta del ejecutable y algo más.
//
// AppInfo()
// Función ......: Información sobre la aplicación.
// Parámetros ...: Nil
// Returns .....: Self
//
METHOD AppInfo(oSender) CLASS tApplication
Local cMsg:=""
Local aFiles := Array( 1 ), aSizes:= Array( 1 ), aDates:= Array( 1 ),
aTimes:= Array( 1 )
Local aDir := aDir( AppData:cExeName, aFiles , aSizes, aDates, aTimes)
cMsg+=AppData:cAppCaption+If(AppData:lDemo," (Versión
Demostrativa)","") +CRLF+CRLF
cMsg+="App: "+aFiles[ 1 ]+" Size "+Alltrim(TransForm(aSizes[ 1 ],"@E
999,999,999"))+" Date "+Dtoc(aDates[ 1 ])+" "+aTimes[ 1 ]+CRLF
cMsg+="Path App: "+AppData:cAppPath+" Datos: "+AppData:cDataPath+CRLF+CRLF
cMsg+=If(AppData:lUser,"Modo usuario"+If(AppData:lNet," En red
local","")+" Nº licencias"+Alltrim(Str(AppData:nUsers)),"Modo
Desarrollador")+CRLF
cMsg+="Unidad "+AppData:cDrivename+" Tipo
"+AppData:cDriveType+if(AppData:lDriveLocal," Local"," Red")+CRLF+CRLF
cMsg+=AppData:cOsVersion+" "+AppData:cXailerVer+CRLF
cMsg+=If(AppData:lProtected,"Protección activada Nº serie
"+AppData:cSerialNum,"")+CRLF
cMsg+="Usuario "+AppData:cLocalIP+" "+AppData:cNetName+"
"+AppData:cUserName+" Nivel "+Alltrim(Str(AppData:nUserLevel))
MsgInfo(cMsg,"Información sobre la aplicación.")
Return cMsg

[Mariano Filippi]

Gracias por tu tiempo...
Pero lo que necesito saber realmente no es la fecha del exe (porque me lo
pueden modificar a mano a traves de las bajadas por ftp) sinó la fecha
exacta de compilación....
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=45ed6133@news.xailer.com...]45ed6133@news.xailer.com...[/email]
> Aquí tienes un ejemplo para saber la fecha exacta del ejecutable y algo
> más.
>
> //
> // AppInfo()
> // Función ......: Información sobre la aplicación.
> // Parámetros ...: Nil
> // Returns .....: Self
> //
>
> METHOD AppInfo(oSender) CLASS tApplication
> Local cMsg:=""
> Local aFiles := Array( 1 ), aSizes:= Array( 1 ), aDates:= Array( 1 ),
> aTimes:= Array( 1 )
> Local aDir := aDir( AppData:cExeName, aFiles , aSizes, aDates, aTimes)
>
> cMsg+=AppData:cAppCaption+If(AppData:lDemo," (Versión Demostrativa)","")
> +CRLF+CRLF
> cMsg+="App: "+aFiles[ 1 ]+" Size "+Alltrim(TransForm(aSizes[ 1 ],"@E
> 999,999,999"))+" Date "+Dtoc(aDates[ 1 ])+" "+aTimes[ 1 ]+CRLF
> cMsg+="Path App: "+AppData:cAppPath+" Datos:
> "+AppData:cDataPath+CRLF+CRLF
> cMsg+=If(AppData:lUser,"Modo usuario"+If(AppData:lNet," En red
> local","")+" Nº licencias"+Alltrim(Str(AppData:nUsers)),"Modo
> Desarrollador")+CRLF
> cMsg+="Unidad "+AppData:cDrivename+" Tipo
> "+AppData:cDriveType+if(AppData:lDriveLocal," Local"," Red")+CRLF+CRLF
> cMsg+=AppData:cOsVersion+" "+AppData:cXailerVer+CRLF
> cMsg+=If(AppData:lProtected,"Protección activada Nº serie
> "+AppData:cSerialNum,"")+CRLF
> cMsg+="Usuario "+AppData:cLocalIP+" "+AppData:cNetName+"
> "+AppData:cUserName+" Nivel "+Alltrim(Str(AppData:nUserLevel))
>
> MsgInfo(cMsg,"Información sobre la aplicación.")
>
> Return cMsg

[jasm]

Mariano Filippi escribió:
> Gracias por tu tiempo...
> Pero lo que necesito saber realmente no es la fecha del exe (porque me lo
> pueden modificar a mano a traves de las bajadas por ftp) sinó la fecha
> exacta de compilación....
>
>
Me temo que si distribuyes el .exe directamente por ftp no puedas
controlarlo. Para mayor seguridad incluyelo dentro de un archivo
comprimido tipo zip, rar, etc. con autodescompresión.
Saludos
Jose A. Suarez