Página 1 de 1
evitar que o sistema seja aberto mais de 1 vez.
Enviado: 22 Mai 2007 15:54
por 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
Enviado: 22 Mai 2007 16:16
por 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
Enviado: 22 Mai 2007 19:38
por 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
OK.
Enviado: 22 Mai 2007 19:39
por scom
obrigado leonardo...pode deixar que vou pesquisar antes..
valeu
t+
ROBSON
Enviado: 23 Mai 2007 09:33
por 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