PC Toledo

Código: Selecionar todos

*------------------*
// Marcelo Mendes //
*------------------*
// Funcao para verificar e baixar atualizacao de um sistema
CLS
VERSAOATUAL="4.71" // Aqui fica o numero da versao atual
*** Neste caso o arquivo que contem a versao deve ter os seu primeiros
*** 4 bytes com o numero da versao disponivel
*** Cada um vai colocar da forma que usa
*** Mas terá que alterar o FREADSTR() para o tamanho usado

FERASE("update.txt")
FERASE("BRUPDATE.EXE")
COMANDO="U2F http:\\sistemabr.v10.com.br/info.upd update.txt"
RUN &COMANDO
IF FILE("update.txt")=.F.
   @ 02,00 SAY "Sem conexao ou arquivo nao encontrado no servidor !"
   INKEY(3)
   RETURN(.T.)
ELSE
   HAND=FOPEN("update.txt")
   VERSAODISP=FREADSTR(HAND,4) // Le os 4 primeiros bytes do aquivo baixado
   FCLOSE(HAND)
   IF VERSAOATUAL<VERSAODISP
      @ 02,00 SAY "Atualizacao disponivel "+VERSAODISP+", pressione uma tecla..."
      INKEY(10)
      EDITA=MEMOREAD("update.txt")
      CLS
      @ 00,00 SAY PADC("Novidades da versao "+VERSAODISP,80)
      @ 24,00 SAY PADC("Tecle <ESC> para sair",80)
      MEMOEDIT(EDITA,01,00,23,79)
      CLS
      BAIXAR=SPACE(1)
      @ 02,00 SAY "Deseja baixar e executar a atualizacao ?";
      GET BAIXAR PICT "@! A" VALID BAIXAR $"SN"
      READ
      IF BAIXAR="S"
         COMANDO="U2F http:\\www.phrep.com.br/brupdate.exe brupdate.exe"
         RUN &COMANDO
         RUN BRUPDATE.EXE
      ELSE
         CLS
         RETURN
      ENDIF
   ELSE
      @ 02,00 SAY "Nenhuma atualizacao disponivel !"
      INKEY(3)
      RETURN(.T.)
   ENDIF
ENDIF