Impedir que o sistema abra várias vezes

[Augusto]

(...) Atualmente eu uso o rtlink. Da para linkar com ele

Parceiro...
Dá uma olhada no meu post nesse tópico...
Tópico relacionado

[Josmar dos Santos]

Ola pessoal.
Eu usei praticamente todos os exemplos citados. Gostei de todos...
Em especial, a pergunta vai para o Marcelo e o Eolo !
Eu compilei ambos os exemplos que voces citaram. Não gerou erro nos dois, mas ambos nao executam o programa, será que faltando algum detalhe..?? sem mais grato

Josmar

[Grings]

Josmar, se vc não estiver trabalhando em rede, agora funcionará. Testei no XP;

Código: Selecionar todos

If !File('Status.Cfg')
   Fcreate('Status.Cfg')
Else
   Fopen('Status.Cfg',2+16)
   If Ferror() > 0
      Alert('O programa já está  aberto em outra janela...')
      Quit
   EndIf
EndIf

[Josmar dos Santos]

Ola grings, eu testei a sua rotina e de fato funciomou. Mas não tem como fazer rodar em rede ? Porque eu uso 5 terminais ligados ao um servidor de rede Linux (samba)...sem mais grato
Josmar

[Daniel]

Josmar

o terminais tem hd, se tiver ! crie o arquivo na unidade c: de cada terminal

igual ao exemplo que eu postei, ai ele funcionara em rede

Código: Selecionar todos

If ! TravaJan() 
   Cls 
   Quit 
EndIf 

******************************** 
Function TravaJan() 

   if ! file("C:\CONTROLE.SYS") 
      errhandle:= fcreate("C:\CONTROLE.SYS", 1) 
      fwrite(errhandle,"[ Arquivo de Controle do Sistema ]") 
      FClose(errhandle) 
      errhandle:= fopen("C:\CONTROLE.SYS",2+16) 
      if ferror() > 0 
         Cls 
         Alert("O Sistema ja esta sendo executado! Olhe na barra de tarefa...") 
         Return(.f.) 
      endif 
   else 
      errhandle:= fopen("C:\CONTROLE.SYS",2+16) 
      if ferror() > 0 
         Cls 
         Alert("O Sistema ja esta sendo executado! Olhe na barra de tarefa...") 
         Return(.f.) 
      endif 
   EndIf 
   Return(.t.) 

[Grings]

Daniel, mais uma vez, não funciona!

[Daniel]

qual e o seu sistema? e Xp
tem com vc por a parte q vc chama a função e a função.
Pois aqui funciona no Xp, 2000 e 98 em rede.

[Everton]

Olá galera.


Teste os exemplos do Grings, e funcionou legal se tudo ocorre certo na máquina, pois quando se fecha a janela com o programa aberto ele não abre mais o sistema, pois ele acha que está aberto, fiz isso pois pode acontecer da máquina se desligar ou até mesmo o cliente fecha a janela, alguém teria uma ideia, testei usando o win98se, grato pela atenção

[Josmar dos Santos]

Ola Everton....gostaria de saber se vc testou o exemplo do grings na rede, pois em unico terminal, de fato funcionou, pois o mesmo funcionou também comigo..
josmar

[Everton]

Olá Josmar.


Testei sim em rede com win98SE e win XP, e funciona blz, o problema é quando fecha a janela sem sair do sistema, ai ele dá pau, tendo que reiniciar a máquina pra poder destravar o arquivo, fora isso parece funcionar blz.. estes teste foram feitos com um EXE só rodando nas duas máquinas e criando o arquivo no c:\status.cfg

[Josmar dos Santos]

Ola galera, por mim, acho que ja da para encerrar esse tópico. Tem um monte de informações legais aqui. Agradeço a todos os colegas que me ajudaram nesse tópico....Garanto a vocês que vou usar todos esses exemplos para os meus sistemas....sem mais ..muito obrigado a todos...
Grato
Josmar

[Josmar dos Santos]

Ola Daniel
Eu nao queria mais tocar nesse assunto, mais fiquei curioso...
Testei a sua função, mas não entendi....o rtlink compila legal, não gera erros..tudo ok...mas pelo menos não rede(isso quer dizer que eu ainda não testei em rede), ele não executa o exe, ou seja, ja na primeira tentativa, ele ja emite a mensagem de aquivo aberto. O ideial seria na segunda !
sem mais

grato josmar

[Daniel]

Josmar

em rede vc tem q criar e abrir o arquivo no hd local "C:\" e não no servidor.
se a extação nao tiver hd nao funciona.