Detectar se o sistema estah em uso

[marcos.gurupi]

Amigo nos explique o que eh HRB... )

[rochinha]

Amiguinhos,

FOPEN(ARQUIVO,18)

Uso algo parecido, mas no meu caso está adequado para não permitir abrir mais de uma vez numa mesma máquina. Explicando melhor, o sistema abre em rede, mas se um ou outro usuário tentar abrir duas vezes num mesmo terminal não lhe é permitido.

Código: Selecionar todos

   // Gera um arquivo de travamento unico
   SOSFile   := cPath+alltrim(str(nSerialHD("C:")))+".sos"
   if file(SOSFile)
      fErase(SOSFile) // Tenta eliminar o arquivo de controle
      if fError() <> 0
         if ! MsgYesNo( "O sistema ja se encontra aberto neste terminal.Veja o icone ao lado do relogio", "Multiplas instancias" )
            // MsgYesNo() - funcao do Fivewin
            quit
         endif
      endif
   endif
   SOSHandle := fCreate(SOSFile) // Cria o arquivo de controle
   SOSHandle := fOpen(SOSFile,1) // Abre travando o arquivo de controle

Tenho um sistema rodando com HRB, nunca deu problemas

Voce usa xHarbour ou qual versão/vertente?

[asimoes]

Amigo nos explique o que eh HRB...

São scripts de rotinas veja mais detalhes em viewtopic.php?f=4&t=14099