Muy buenas, 驴Alguien me podr铆a indicar como puedo insertar en el fichero ejecutable la version, y desde fivewin sacar su valor?
Un Saludo.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Version del fichero ejecutable
Saludos softruz:
Yo lo hago de la siguiente forma, aqui veduelvo la fecha de creacion o odificacion del exe principal, espero te sirva..
FUNCTION VERSIONEXE()
LOCAL dVersion := DTOS(DIRECTORY(".\TUEXE.EXE")[1,3])
LOCAL cVer:= "Edici贸n "+SUBSTR(ALLTRIM(dVersion),7,2)+"."+SUBSTR(ALLTRIM(dVersion),5,2)+"."+SUBSTR(ALLTRIM(dVersion),1,4)
RETURN cVer
Soluciones y Dise帽o de Software
Damos Soluciones...
I.S.C. Victor Daniel Cuatecatl Leon
Director y Dise帽ador de Proyectos
http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
Damos Soluciones...
I.S.C. Victor Daniel Cuatecatl Leon
Director y Dise帽ador de Proyectos
http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
softruz wrote:驴Alguien me podr铆a indicar como puedo insertar en el fichero ejecutable la version, y desde fivewin sacar su valor?
En el fichero RC incluye esto:
1 VERSIONINFO
FILEVERSION 1, 0, 0, 0
PRODUCTVERSION 1, 0, 0, 0
FILEOS VOS__WINDOWS16
{
BLOCK "StringFileInfo"
{
BLOCK "040904E4"
{
VALUE "ProductVersion", "1.0 脽eta"
VALUE "FileVersion", "1.0 脽eta"
VALUE "FileDescription", "FiveWin+xHarbour... o lo que sea"
}
}
}
Despu茅s en el ejecutable bot贸n derecho propiedades y folder versi贸n.
Mi abuelo dec铆a: Los aviones vuelan porque Dios quiere, y los helic贸pteros ni Dios sabe porque vuelan.
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Voy a probarlo y os comento.
Un Saludo.
Tienes un ejemplo funcionando en fwh\samples\FileVer.prg y FileVer.rc