Travajan Agora para XP - Seus problemas se acabaram-se !!!

[Clipper]

Peguem abaixo a versão da TRAVAJAN() que funciona também no XP.

http://geocities.yahoo.com.br/mmendeso/tvjanxp.zip

Até logo.

Marcelo

[janio]

Amigo Marcelo,

Tô com um problema aki crônico... rs... não sei se sou o único...

é que eu não posso baixar nenhum arquivo... tipo ZIP, EXE, COM, etc... etc... tem um tal sistema aki que bloqueia...

Dá pra disponibilizar estes arquivos com uma extensão diferente, tipo TVJANXP.ZI_ ?

Janio

[Clipper]

Pega ele na integra aí...

Basta copiar e colar.

Código: Selecionar todos

CLS
NOME=SPACE(50)

TRAVA=TRAVAJANXP()
IF TRAVA=.F.
   RETURN
ENDIF

@ 05,00 SAY "NOME -> " GET NOME PICT "@!"
READ
RETURN

*-------------------*  
 FUNCTION TRAVAJANXP  
*-------------------* 
IF .NOT. FILE("CONTROLE.INI")
   aStructure := {} 
   aAdd( aStructure,{"CONTROL","C",1,0})
   dbCreate( "CONTROLE.INI",aStructure)
   USE CONTROLE.INI EXCLUSIVE
ELSE
   USE CONTROLE.INI EXCLUSIVE
   IF NETERR()
      CLS
      @ 02,00 SAY "O Sistema ja esta sendo executado nesta estacao"
      @ 03,00 SAY STRZERO(FERROR(),3)
      @ 04,00 SAY REPLICATE("=",50)
      INKEY(0)
      RETURN(.F.)
   ENDIF
ENDIF
// LEMBRAR DE NO FINAL DO SITEMA FECHAR O ARQUIVO 
// OBVIAMENTE QU SE VOCE USAR UM DBCLOSEALL() NAO PRECISA SE PREOCUPAR
RETURN(.T.)

Até logo.

Marcelo