Actualizar el Ejecutable automáticamente
Posted: Mon Mar 23, 2009 12:57 pm
Hola a todos.
Siguiendo algunos consejos en el foro de que es mejor tener el ejecutable el las terminales, y con el aporte de varios.
les envio como actualizar el EXE y la DLL (por si están usando)
Saludos para todos
Adhemar Cuéllar
Siguiendo algunos consejos en el foro de que es mejor tener el ejecutable el las terminales, y con el aporte de varios.
les envio como actualizar el EXE y la DLL (por si están usando)
Code: Select all
If File("FACTURAS.DLL")
DllOn:="FACTURAS.DLL"
DllNew:="\\SERVER\FACTURAS\FACTURAS.DLL"
HoraNew:=FILETIME(DllNew); HoraOn:=FILETIME(DllOn)
FecDllOn:=dToS(FILEDATE(DllOn))+Left(HoraOn,2)+Subs(HoraOn,4,2)+Right(HoraOn,2)
FecDllNew:=dToS(FILEDATE(DllNew))+Left(HoraNew,2)+Subs(HoraNew,4,2)+Right(HoraNew,2)
IF FecDllNew > FecDllOn
COPY FILE \\SERVER\FACTURAS\FACTURAS.DLL TO FACTURAS.DLL
Endif
Endi
ExeOn:="FACTURAS.EXE"
ExeNew:="\\SERVER\FACTURAS\FACTURAS.EXE"
HoraNew:=FILETIME(ExeNew); HoraOn:=FILETIME(ExeOn)
FecExeOn:=dToS(FILEDATE(ExeOn))+Left(HoraOn,2)+Subs(HoraOn,4,2)+Right(HoraOn,2)
FecExeNew:=dToS(FILEDATE(ExeNew))+Left(HoraNew,2)+Subs(HoraNew,4,2)+Right(HoraNew,2)
IF FecExeNew > FecExeOn
RENAME FACTURAS.EXE TO FACTURAx.EXE
COPY FILE \\SERVER\FACTURAS\FACTURAS.EXE To FACTURAS.EXE
WinExec(ExeOn)
Quit
Endif
If File("FACTURAx.EXE")
DELETE FILE FACTURAx.EXE
Endi
Adhemar Cuéllar
