Detecter si une appli est active avec focus

Question

Bonjour,

Comment détecter si une appli (dont je connais le handle) est active (ou a le focus) ? ...C'est a dire si l'utilisateur est entrain de l'utiliser.

Attention, cette appli n'est pas forcément au premier plan (Cf. les fenetres en TopMost)

NB: cest aussi pour mon projet "Yahoo! Messenger Plus" ( http://www.yahooplus.fr.st ) à cause de la nouvelle fonction "SuperTopMost" qui cache les menus popup :o(

----
Olie_ze_kat - www.olid.fr.st   =(°o°)=

thierrydelepine · Answer

je viens de deposer une source en rapport avec ta demande

http://www.vbfrance.com/code.aspx?ID=27262

MadM@tt · Answer

Declare Function GetActiveWindow Lib "user32" () As Long 

Cette fonction retourne un handle vers la fenêtre active. 
Par contre la fenêtre doit appartenir a ton programme sinon elle renvoie 0
@ +
MadMatt

cs_olid · Answer

Merci, mais cest pô la solution à mon probleme...

Jai deja un prog comme le tien, thierry... Za me dit pô si l'appli a le focus (barre titre bleu ;o)

Et pour Matt, cest pô pour les fenetres de mon prog, mais pour voir si une autre appli est en cours d'utilisation ou non

NB: getactivewindow est pour les fenetres MDI
----
Olie_ze_kat - www.olid.fr.st   =(°o°)=

thierrydelepine · Answer

pour connaitre la fenetre active (celle qui est en bleu) et non toutes les fenetres :

place ce code dans un form et lance

Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function GetForegroundWindow Lib "user32" () As Long

Public Function GetActiveWindowApp() As String
Dim hWndlength As Long, hWndTitle As String, returnvalue As Long
Dim hwnd As Long
    hwnd = GetForegroundWindow
    hWndlength = GetWindowTextLength(hwnd)
    hWndTitle = String$(hWndlength, 0)
    returnvalue = GetWindowText(hwnd, hWndTitle, (hWndlength + 1))
    GetActiveWindowApp = hWndTitle
End Function

Private Sub Form_Load()
MsgBox GetActiveWindowApp()
End Sub

Ca c'est la solution que tu recherche

MadM@tt · Answer

Oui mais ce qu'il veut c'est savoir si la fenetre dont il a le handle a le focus, donc ce n'est pas la peine de récupérer le titre de la fenetre active mais ce qu'il faut faire c'est comparer le handle que retourne GetForegroundWindow avec celui dont on veut savoir si la fenetre a le focus.
@ +
MadMatt

cs_olid · Answer

Bin voilà....zest zà que je cherchais : "GetForegroundWindow"

Je teste ce soir :o)

Sinon, l'appli à detecter, cest YMessenger, et je sais son handle et aussi sa classe Window...
----
Olie_ze_kat - www.olid.fr.st   =(°o°)=

Detecter si une appli est active avec focus

6 réponses

Discussions similaires