cArq:= HB_ArgV( 0 )
aDir := Directory( substr(cArq, RAT("\", cArq) + 1) )
? adir[1][3] //data do programa
. Tem como otimizar mais isso, ou está bem assim. Dicas / comentários
.

Moderador: Moderadores
cArq:= HB_ArgV( 0 )
aDir := Directory( substr(cArq, RAT("\", cArq) + 1) )
? adir[1][3] //data do programa
bencz escreveu:Uma alternativa, até mais segura, seria ler o header do executavel
/* Automatically generated by hbmk2. Do not edit. */
#define _HBMK_BUILD_ID_ "1090"
#define _HBMK_BUILD_ID_NUM_ 1090
#define _HBMK_BUILD_YEAR_ "2019"
#define _HBMK_BUILD_DATE_ "20191227"
#define _HBMK_BUILD_TIME_ "16:09:06"
#define _HBMK_BUILD_TIMESTAMP_ "20191227160906345"
#define _HBMK_BUILD_TIMESTAMP_UTC_ "20191227190906345"
#define _HBMK_BUILD_RANDSTR_32_ "c3735af11f2322c170d50ad3781fa0d1aec860e4156f104ff74a3c3f982e70d3"
Usuários vendo este fórum: Bing [Bot] e 7 visitantes