Fecha de mi aplicacion
Posted: Fri Jan 04, 2019 4:41 pm
Estimados Colegas,
¿ Como puedo obtener La fecha de mi ejecutable ?
Gracias a Todos.
¿ Como puedo obtener La fecha de mi ejecutable ?
Gracias a Todos.
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://www.hmgforum.com/
Code: Select all
LOCAL aFichero:={}
aFichero:=DIRECTORY("NOMBREAPLIACION.EXE")
msgbox("Nombre",aFichero[1,1])
msgbox("Tamaño",aFichero[1,2])
msgbox("Fecha",aFichero[1,3])
msgbox("Hora",aFichero[1,4])
Code: Select all
*-----------------------------------------------------------------------------*
STATIC FUNC InfoPrograma()
*-----------------------------------------------------------------------------*
LOCAL aFichero:={}
aFichero:=DIRECTORY("TUPROGRAMA.EXE")
IF LEN(aFichero) <> 0
MSGINFO("Nombre de la aplicación : "+UPPER(aFichero[1,1])+CHR(13)+CHR(13)+;
"Tamaño del Fichero .....: "+TRANSFORM(STR(aFichero[1,2])," 9999,999")+" Bytes"+CHR(13)+CHR(13)+;
"Fecha de Creación ......: "+DTOC(aFichero[1,3])+CHR(13)+CHR(13)+;
"Hora de Creación .......: "+aFichero[1,4]+CHR(13)+CHR(13)+;
" Vers. 1.0 © Tu nombre Autor 2019 ","Datos de su Programa TUPROGRAMA")
ELSE
MSGINFO("No se ha encontrado Información del Programa")
ENDIF
Retu Nil
Hola amigo Mustafa, te sigo en los posts que publicas (como siempre muy buenos) en esta gran comunidad llena de amigos y aprovecho para enviarte un gran saludo y desearte todo lo mejor para este 2019, al igual que a todos los componentes de HMGFORUM.