[VB6] Sapere se un programma è in esecuzione

[nico74it]

Ciao,
come si fa a sapere se un applicazione è attiva?

Ho trovato la faq "Posso sapere se una determinata applicazione è in esecuzione?" in questo sito dove descrive l'api FindWindow :

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Function AppAttiva(Titolo As String) As Boolean
Dim RetVal As Long
RetVal = FindWindow(vbNullString, Titolo)
If RetVal > 0 Then AppAttiva = True Else AppAttiva = False
End Function

Peccato che AppAttiva mi dia un valore False anche se il programma che voglio controllare è attivo!

In particolare : se voglio controllare WinMX e sul task manager è scritto WinMX.exe allora titolo="WinMX" ??

Grazie

[Jupy64]

Ciao, il titolo è quello che leggi nella barra del "titolo" della finestra del programma.

[nico74it]

grazie jupy x aver risposto:
la cosa però si complica perchè winmx ha una barra del titolo che cambia in continuazione poichè segna ad ogni istante i downloads e gli uploads con le relative bande...esempio:

WinMX v3.31 - 2 DL @ 16,733 B/s 2 UL @ 20,432 B/s <Online 4:43:54>

:master:

[Jupy64]

qual'è la parte fissa?

[nico74it]

la parte fissa è WinmMX v3.31 -

ho provato anche con Winamp ma la funzione mi restituisce False

[xegallo]

in questo caso allora ti è più interessante l'api enumwindows
in accoppiata con getwindowstext

[Jupy64]

Ciao, l'api FindWindow funziona anche passandogli il nome del programma!!!
se il nome del programma è WinMX.exe, allora puoi fare anche cosi:

 hw = FindWindow(CLng(0), "winmx")

eventualmente se non dovesse funzionare, allora controlla che il nome interno del programma corrisponda... tasto destro sul file eseguibile e sulle proprietà leggiti il nome interno...