evitar que o sistema seja aberto mais de 1 vez.

[scom]

ola amigos...

eu peguei não me lembro onde uma função chamada JaAberto() mas ela não ta funcionando...alguem tem uma funcão ou dica de como fazer para o programa não seja executado mais de uma vez.

atenciosament

ROBSON

[sygecom]

Tche, sempre de uma procura antes de postar....
O Eolo..postou a um tempo atraz uma solução simples e que funciona...de uma olhada ..:

Código: Selecionar todos

vABRE"S"   // QUANDO NÃO FOR TS(TERMINAL SERVICE)
vABRE"N"   // QUANDO FOR TS(TERMINAL SERVICE)

IF vABRE="S"
   arq="c:\aberto.txt"
   if !file(arq)
      arqh=fcreate(arq,0)
      if !arqh>0
         ALERT("DEU ERRO")    // AVISO DE ERRO
         quit
      endif
      txt="SISTEMA ABERTO"
      txt_t=fwrite(arqh,txt)
      if !txt_t=len(txt)
         ALERT("DEU ERRO")    // AVISO DE ERRO
         quit
      endif
      fclose(arqh)
   endi

   janela2=fopen(arq,18)
   if !janela2>0
         ALERT("DEU ERRO")    // AVISO DE ERRO
      quit
   endi
   rele arq, arqh, janela2, txt, txt_t
ENDIF

Tche, esse do Vabre....eu coloquei para poder usar quando for em clientes que usam TS..mas vc pode mandar o TXT para qualquer lugar...ex: \base\aberto.txt.

Qualquer coisa prende o grito...

Abraços
Leonardo Machado

[Pablo César]

Caro Scom, essa função do colega Eolo que você menciona, ora extraída no tópico https://pctoledo.org/forum/viewto ... open#23427 verifique se está correto. Eu achei esta função muito interessante. Mas como mencionei em outros tópicos relacionados, eu ainda continuo gostando do jeito que estou fazendo com a função do Maligno, que caso o usuário chame duas vezes, consigo re-abrir apenas uma sessão (aquela que estava aberta). Quiser dar uma olhada: https://pctoledo.org/forum/viewto ... info#23359

Um clip-abraço :)Pos

[scom]

obrigado leonardo...pode deixar que vou pesquisar antes..


valeu

t+

ROBSON

[Eolo]

Leonardo,

O seu vABRE="N" é quando não tem disco local, vc acessa direto o servidor? Se for isso, basta trocar arq="c:\aberto.txt" por
arq="\\servidor\qqpasta\aberto.txt".

Eolo