Detectar se o sistema estah em uso
Enviado: 02 Mai 2013 00:36
Amigo nos explique o que eh HRB... 
)
)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.FOPEN(ARQUIVO,18)
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
Voce usa xHarbour ou qual versão/vertente?Tenho um sistema rodando com HRB, nunca deu problemas