Descrição:
Como posso abrir um aplicativo via botão no E3, de forma que esse aplicativo seja aberto apenas uma vez? A aplicação só pode abrir o mesmo aplicativo caso não tenho outro já aberto.
Solução:
Para isto, crie uma tag interna no Viewer e então utilize o seguinte script no evento OnClick() de um botão:
‘ ret recebe o valor do processo
ret = Application.Item(“TagInterno”).Value
‘ Enquanto o Processo estiver rodando não pode ser aberto outra calculadora
If Application.IsAppRunning(ret) Then
MsgBox “A Calculadora já está aberta”, 64
Else
‘ Abre uma aplicação externa no caso a Calculadora do Windows
Application.ExecuteExternalApp “calc.exe”, “”, “”, 4, ret
‘ Insere o valor do ProcessID na Tag Interna
Application.Item(“TagInterno”).Value = ret
End If
ret = Application.Item(“TagInterno”).Value
‘ Enquanto o Processo estiver rodando não pode ser aberto outra calculadora
If Application.IsAppRunning(ret) Then
MsgBox “A Calculadora já está aberta”, 64
Else
‘ Abre uma aplicação externa no caso a Calculadora do Windows
Application.ExecuteExternalApp “calc.exe”, “”, “”, 4, ret
‘ Insere o valor do ProcessID na Tag Interna
Application.Item(“TagInterno”).Value = ret
End If
