handle des fenêtres

[Oliv]

Il me semblait que ça avait été dit dans le musée mais non dnc :
Comment réupérer les handles de fenêtres ouvertes sous windows ? (je crois que ça à aussi été posé sur ce forum par Régis mais bon : quand on a le handle, comment retrouver le nom ?)
Merci

[Oliv]

Régis avait trouvé pour son bi-explorer

Code : Tout sélectionner

  ; On liste les fenêtres ouvertes 
  hWnd.l = FindWindow_( 0, 0 ) 
  While hWnd <> 0 
    If GetwindowLong_(Hwnd, #GWL_STYLE) & #WS_VISIBLE = #WS_VISIBLE 
        Debug hWnd 
    EndIf 
    hWnd = GetWindow_(hWnd, #GW_HWNDNEXT) 
  Wend

Mais comment récupérer les noms ?

[Chris]

Si tu as au moins le nom ou la classe de la fenêtre, tu peux utiliser FindWindow_() ou FindWindowEx_()

Il doit y avoir d'autres moyens.

Chris

[Oliv]

Non, je n'ai que le handle et il faudrait le nom

[Chris]

Avec GetWindowText_(Handle, @Buffer, Longueurdu buffer)

Chris

[Oliv]

Merci

[Le Soldat Inconnu]

Code : Tout sélectionner

Procedure Window()
  hWnd.l = FindWindow_( 0, 0 )
  While hWnd <> 0
    If GetwindowLong_(Hwnd, #GWL_STYLE) & #WS_VISIBLE = #WS_VISIBLE
      ; If GetwindowLong_(Hwnd, #GWL_EXSTYLE) & #WS_EX_TOOLWINDOW <> #WS_EX_TOOLWINDOW
        txt.s = Space(256)
        GetWindowText_(hwnd, txt, 256)
        If txt <> ""
          Debug txt
        EndIf
      ; EndIf
    EndIf
    hWnd = GetWindow_(hWnd, #GW_HWNDNEXT)
  Wend
EndProcedure

Window()

[Oliv]

merci

[KarLKoX]

Le Soldat Inconnu>"If GetwindowLong_(Hwnd, #GWL_STYLE) & #WS_VISIBLE = #WS_VISIBLE"

Tu peux enlever le "egal", tu fais justement un test logique & donc c'est implicitement = si le test retourne 1