Atualizar executavel...

[MARSAN]

Pessoal boa noite, Minha duvida é a seguinte....

Nos meus sistemas em clip53 e em fw para clipper, eu faço uma modificacao no fonte, compilo e copio o programa.exe pra pasta do sistema, mesmo que outras estacoes estejam usando o mesmo programa. Ja no fwh nao consigo a mesma coisa, ou seja, tenho que pedir a todos os usuarios da rede para fechar o sistema pra so depois eu atualizar....gostaria de poder atualizar independente do programa estar sendo usado por outra estacao ou nao....

Tem como fazer isto usando o fwh?

fwh 9.03+xharbour,bcc55,xdev

[MARSAN]

Pessoal boa noite, Minha duvida é a seguinte....

Nos meus sistemas em clip53 e em fw para clipper, eu faço uma modificacao no fonte, compilo e copio o programa.exe pra pasta do sistema, mesmo que outras estacoes estejam usando o mesmo programa. Ja no fwh nao consigo a mesma coisa, ou seja, tenho que pedir a todos os usuarios da rede para fechar o sistema pra so depois eu atualizar....gostaria de poder atualizar independente do programa estar sendo usado por outra estacao ou nao....

Tem como fazer isto usando o fwh?

fwh 9.03+xharbour,bcc55,xdev

[joaosolution]

Marsan

Bom dia

Eu renomeio o executável antigo, e depois copio o executável novo.

Sem problemas.

Att

João Bosco

Clip 5.3b FW 2.8 FWH 2.8 xHb 1.1.0 WorkShop 4.5

PellesC SQLLIB

[Vitor Reis]

uma solucao simples mas bem funcional

faz um arquivo.bat tipo:

sistema.bat

faz todos os usuarios buscar esse sistema.bat ao

inves do executavel..

dentro deste sistema.bat vc chama o executavel mais

novo, tipo sistema1.exe,

quando fizer um novo tipo.. sistema2.exe

muda o apenas a chamada dele no sistema.bat

assim da prox vez que o usuario sair e entrar novamente

ele ja vai entrar no exe novo..

entende??

vitor

s.b.c.

[aferra]

Olá Marsan.

Como estas usando 32 bits. o Windows trava o sistema enquanto ele estiver aberto, como se fosse arquivo de sistema, trava mesmo, acho que não tem solução para fazer como faziz, o jeito é vc criar uma forma de se fazer a alteração e e o programa entender que tem atualizações a serem feitas isso qdo abrir, d~e uma olhada neste link quem sabe te abre os horizontes.

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=7610

Alessandroid=blue>

FW20d+CL53b+Blk7+@Say+CDX

FW9.06+xHb121+PellesC+CDX

"VI Encontro FiveWin, participe"id=red>

[MARSAN]

Obrigados a tds pela atencao.

fwh 9.03+xharbour,bcc55,xdev

[FGSIST]

Olá Marsan eu faço assim e funciona perfeitamente.

#include "Fivewin.ch"

#include "Directry.ch"

//-----------------------------------------------------------------------------------------\\

Function Main(mUnid)

PRIV WDATA1 :=CTOD(" / / ")

PRIV WTIME1 :=""

PRIV WDATA2 :=CTOD(" / / ")

PRIV WTIME2 :=""

PRIV CORIGEM :=""

PRIV CDESTINO:=""

IF mUnid=nil

QUIT

ENDIF

IF !lIsDir( "C:\FGTRANSP\" )

LMKDIR( "C:\FGTRANSP\" )

vArq:=Directory(mUnid+":\FGTRANSP\*.*")

For X:=1 to Len(vArq)

cOrigem :=mUnid+":\FGTRANSP\"+vArq[X,1]

cDestino:="C:\FGTRANSP\"+vArq[X,1]

Copy File &cOrigem To &cDestino

NEXT

ELSE

IF FILE("C:\FGTRANSP\GERENT.EXE") // exe na máquina local

aDirectory:=DIRECTORY(mUnid+":\FGTRANSP\GERENT.EXE") // exe no servidor

AEVAL(aDirectory, { |aFile| QOUT(aFile[F_DATE]),wdata1:=aFile[F_DATE] })

AEVAL(aDirectory, { |aFile| QOUT(aFile[F_TIME]),wtime1:=aFile[F_TIME] })

aDirectory2:=DIRECTORY("C:\FGTRANSP\GERENT.EXE")

AEVAL(aDirectory2, { |aFile| QOUT(aFile[F_DATE]),wdata2:=aFile[F_DATE] })

AEVAL(aDirectory2, { |aFile| QOUT(aFile[F_TIME]),wtime2:=aFile[F_TIME] })

IF WDATA1>WDATA2 .OR. ;

( WDATA1=WDATA2 .AND. ;

VAL(SUBS(WTIME1,1,2)+SUBS(WTIME1,4,2)+SUBS(WTIME1,7,2)) >;

VAL(SUBS(WTIME2,1,2)+SUBS(WTIME2,4,2)+SUBS(WTIME2,7,2)) )

cOrigem :=mUnid+":\FGTRANSP\GERENT.EXE"

cDestino:="C:\FGTRANSP\GERENT.EXE"

Delete File &cDestino

Copy File &cOrigem To &cDestino

ENDIF

ELSE

cOrigem :=mUnid+":\FGTRANSP\GERENT.EXE"

cDestino:="C:\FGTRANSP\GERENT.EXE"

Copy File &cOrigem To &cDestino

ENDIF

ENDIF

WinExec( "GERENT.EXE "+mUnid )

Return nil

//--------------------------------------------------------------------------\\

Abraços

Gilson

E-mail: Fgsistem@yahoo.com.br

MSN: fgsistem@hotmail.com

Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC /