Se aplicativo aberto

[Cassio.hc 0]

Preciso verificar do aplicativo X se o aplicativo Y está aberto. Alguem tem alguma sugestão de como fazer? uso VB6.vlw

[Luizgrs 0]

A API FindWindow pode ajudar:

 

'no general ou em um móduloPublic Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long'chamando a funçãoFindWindow(vbNullString, "titulodajanela")

A função retornará 0 (numérico) se a janela não estiver aberta.