Bom, se vc tiver usando um instalador, o próprio se encarrega disso, caso contrário utilize este código.

 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const WM_COMMAND = &H111

Private Sub Command1_Click()
    Dim hwnd As Long
    hwnd = FindWindow("NotePad", vbNullString)
    If hwnd = 0 Then
        MsgBox "Não está sendo executado"
    Else
        MsgBox "Está sendo executado"
    End If
End Sub

 

Para testar abra o Bloco de notas!

Se vc estiver utilizando um instalador (Por exemplo o Inno Setup) ele se encarrega disso, caso contrário utilize o código abaixo. 

 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const WM_COMMAND = &H111

Private Sub Command1_Click()
    Dim hwnd As Long
    hwnd = FindWindow("NotePad", vbNullString)
    If hwnd = 0 Then
        MsgBox "Não está sendo executado"
    Else
        MsgBox "Está sendo executado"
    End If
End Sub

Já uso esta rotina para não deixar que dois programas iguais sejam executados ao mesmo tempo na mesma máquina. Mas não posso usar esta rotina porque tenho que verificar se o programa está rodando via rede e pode ter mais de um executável na outra máquina. Teria que ser uma rotina ou API que me retornasse uma resposta de em uso ou não passando apenas o caminho do exe.

Tu tens como alterar o programa "Grandão"???

Minha pergunta é pelo seguinte: O ideal para este tippo de coisa, é conectar por Socket. Eu faço as atualizações tudo por SOCKET. É só colocar um Winsock nos dois programas e depois tentar conectar. Coloque uma rotina de TimeOut pra não ficar infinitamente tentando a conexão. Se conectar é só mandar uma Mensagem de Verificação. Caso a mensagem seja respondida de acordo com o que o "Programinha" espera, entao o "Programão" está rodando.

Se quiseres posso fazer um esboço pra ti e te mandar. Afinal, somos conterraneos...

Po cara, escrevi uma resposta bem leggal pra ti mas acho que deu problema no forum pois não cadastrou minha resposta. Serei mais sucinto desta vez.

Utilize Sockets. Eu sou totalmente a fã desta tecnologia na area de Comunicação entre aplicativos. Se quiseres posso esboçar alguma coisa pra ti....

Um abraço, conterraneo

Buenas!!

 

Também estou interessado neste caso, será que poderia enviar para mim um esbosso do programa, pois acredito que terei este problema daqui um tempo.

 

Agradeço

 

Antônio Carlos

AL Soluçoes em Informática

Caxias do Sul - RS