vb6 et l'api getwindowtext

Version imprimable

bonjour,
J'aimerais récupérer le texte associé à la fenêtre située au premier plan (son "caption"). Pour cela, j'utilise les apis getforeground windox et getwindow text de la manière suivante:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Declare Function GetForegroundWindow Lib "user32" () As Long Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _ ByVal hwnd As Long, _ ByVal lpString As String, _ ByVal cch As Long) As Long Private Sub Command1_Click() Dim str As String str = Space$(257) titre = Module1.GetWindowText(Me.hwnd, str, 256) MsgBox (titre) End Sub
Le problème est qu'à la place du titre de la fenêtre, j'obtiens la longueur de ce titre! (c'est à dire le même résultat qu'avec la fonction getwindowtextlenght !)
Qu'y a-t-il à modifier???

merci

Code:

1
2
3
4
5
6
7
8
 
Private Sub Command1_Click()
Dim str As String
    str = String$(100, Chr$(0))
    GetWindowText Me.hwnd, str, 100
    titre = Left$(str, InStr(str, Chr$(0)) - 1)
    MsgBox (titre)
End Sub

Bonjour,
Tu peux utiliser ce code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Option Explicit
Private Declare Function GetForegroundWindow Lib "user32" () As Long
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 Sub Command1_Click()
' Fenetre active lors de l'iteration precedente
Static LastActive As Long
 
' Fenetre active sur le systeme
' Utiliser GetActiveWindow pour connaitre la fenetre active dans l'application)
Dim Active As Long
Active = GetForegroundWindow
 
' Si c'est la même fenêtre qui est active, on quitte
If LastActive = Active Then Exit Sub
 
' On récupère la longueur du titre
Dim Length As Long: Length = GetWindowTextLength(Active) + 1
 
' Afin de pouvoir reserver une chaine de caractères assez grande
Dim Buffer As String: Buffer = Space$(Length)
 
' On récupère le titre
Length = GetWindowText(Active, Buffer, Length)
 
' On supprime le caractère \0 final
Buffer = Left$(Buffer, Length)
 
' On ajoute le titre dans la liste
'List1.AddItem Buffer
MsgBox Buffer
 
' Et on mémorise la fenetre qui etait active
LastActive = Active
End Sub

jpleroisse