Verificar se determinado programa está aberto no windows

Verifica se determinado programa está aberto no windows.
Neste exemplo verifica o WinRar



Enjoy!!!

*****************************************************************************************************************



Repositório de Exemplos Ms Access
Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para todos os Utilizadores Cadastrados.
Não tirar duvidas nesta sala.

Em uma função retornando True ou False

Function ProgramaAtivo(NomeProg As String) As Boolean
ProgramaAberto = FindWindow(0, NomeProg)
If ProgramaAberto <> 0 Then
    ProgramaAtivo = True
Else
    ProgramaAtivo = False
End If
End Function

Para chamar:

If ProgramaAtivo("WinRar") = Truen Then
    'Código
Else
    ''Código
End If

Obrigado caro Harysohn!
Achei hoje este exemplo e usei para resolver uma dor de cabeça que estava !!!

Porém uma curiosidade: Se o programa já estiver aberto, como podemos mudar o foco para ele?


Valeu