Ir para conteúdo
  • Cadastre-se

dev botao

Como saber se o acbrmonitorPlus esta em execução no pc ?


  • Este tópico foi criado há 1778 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Fundadores

Use Mutex... (é como ele mesmo verifica)

     CreateMutex(nil, True, 'ACBrMonitor');
     if GetLastError = ERROR_ALREADY_EXISTS then
     begin
        MessageDlg('ACBrMonitor','O programa ACBrMonitor já está em execução',
            mtError, [mbOK], 0);
        Application.Terminate;
        exit ;
     end;     

 

  • Curtir 2
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

1 hora atrás, Daniel Simoes disse:

Use Mutex... (é como ele mesmo verifica)


     CreateMutex(nil, True, 'ACBrMonitor');
     if GetLastError = ERROR_ALREADY_EXISTS then
     begin
        MessageDlg('ACBrMonitor','O programa ACBrMonitor já está em execução',
            mtError, [mbOK], 0);
        Application.Terminate;
        exit ;
     end;     

 

Eu Programo em VB6, acho que esse código não vai funcionar pra mim

Link para o comentário
Compartilhar em outros sites

  • Fundadores
  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

Bom pessoal, muito obrigado pela ajuda mas não consegui com os exemplos que me deram.

A solução que encontrei, pra nível de histórico aqui.

 

Crio um comando pra minimizar o acbrmonitor.

Close #2   
Open "C:\nfce-app\acbr\ocultaACBR.TXT" For Output As #2    
Print #2, "acbr.ocultar"                                                            
Close #2     

 

caso o Acbrmonitor não o execute e exclua o arquivo, eu entendo que ele não esta aberto na maquina e o executo pelo comando shell do Windows.

If Dir("c:\nfce-app\acbr\ocultaACBR.txt") <> "" Then  
  Shell ("C:\ACBrMonitorPLUS\ACBrMonitor.exe") 
End If
  • Curtir 2
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1778 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.