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

[JHUANZITOLLL]

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

[Daniel Simoes]

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;     

 

[JHUANZITOLLL]

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

[Daniel Simoes]

CreateMutex é da API do Windows 

https://docs.microsoft.com/en-us/windows/desktop/api/synchapi/nf-synchapi-createmutexa

[GILBERTO FARIA]

Bom dia  Jhuanzitolll

em vb pode usar este comando para saber se já existe o mesmo sistema em memoria

 

If App.PrevInstance Then
   MsgBox "SISTEMA JÁ ESTA ABERTO", vbExclamation, Space(20) & "ATENÇÃO"
   End
End If

[JHUANZITOLLL]

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

[Daniel Simoes]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.