Discussion :

[VincentB]

Bonjour, cela fait plusieurs années que je tente, avec delphi, de récupérer le contenu d'un message qui s'affiche dans Windows. Par exemple, les box messages, du style " voulez-vous enregistrer les modifications de votre document Word avant de quitter" ou directement de Windows, " ce programme a commis une erreur ". J'avais réussi à récupérer avec un hook le contenu des messages, mais il fallait que la souris soit sur le message. J'ai dernièrement trouvé un logiciel qui peut faire cette opération ( Ultra Hal Text-to-Speech Reader). Comme mon projet n'a jamais abouti, j'aimerais savoir si une personne s'y connaît, afin de me donner des pistes nouvelles... J'aimerais tellement pouvoir boucler ce projet.

Merci

[LadyWasky]

Alors, voici grosso modo ce que j'entrevois :

- Savoir enumérer toutes les fenêtres ouvertes dans Windows (Qui dit fenêtre, au sens Windows du terme, dit : Fiches et contrôles fenétrés (boutons, labels, boite d'édition, mémos, etc... ce que Delphi appelle donc un TWinControl).
Pour ce faire il faut utiliser la fonction de l'API Windows EnumWindows, qui te permet de récupérer les handle de toutes les fenêtres (et controles fenêtrés) ouvertes. Pour ça, tu devrait pouvoir trouver du code par ci par là sur notre forum et dans la FAQ (Fonction rechercher et hop )
Pour le premier défi (automate démineur), on l'a utilisé en long en large et en travers pour controler la fenêtre du Démineur
- A partir du Handle d'une fenêtre (qui est du type HWND), tu peux obtenir son Titre, son Caption, ou des choses comme ça.
- Pour obtenir le texte associé à une fenêtre dont tu connais le Handle, tu as la fonction de l'API Windows GetWindowText

Windows te propose tout ça :

The following functions are used to create and manage windows.

AdjustWindowRect
AdjustWindowRectEx
ArrangeIconicWindows
BeginDeferWindowPos
BringWindowToTop
CascadeWindows
ChildWindowFromPoint
ChildWindowFromPointEx
CloseWindow
CreateWindow
CreateWindowEx
DeferWindowPos
DestroyWindow
EnableWindow
EndDeferWindowPos
EnumChildProc
EnumChildWindows
EnumThreadWindows
EnumThreadWndProc
EnumWindows
EnumWindowsProc
FindWindow
FindWindowEx
GetClientRect
GetDesktopWindow
GetForegroundWindow
GetLastActivePopup
GetNextWindow
GetParent
GetTopWindow
GetWindow
GetWindowPlacement
GetWindowRect
GetWindowText
GetWindowTextLength
GetWindowThreadProcessId
IsChild
IsIconic
IsWindow
IsWindowUnicode
IsWindowVisible
IsZoomed
MoveWindow
OpenIcon
SetForegroundWindow
SetParent
SetWindowLong
SetWindowPlacement
SetWindowPos
SetWindowText
ShowOwnedPopups
ShowWindow
ShowWindowAsync
TileWindows
WindowFromPoint
WinMain

Maais je te laisse le soin de trouver ton bonheur dedans...

[VincentB]

déjà un grand merci. J'étudie tout ça

[VincentB]

Merci, grâce à ton aide, j'arrive par exemple a détecté si une boîte de dialogue de de Word s'affiche à l'écran. En utilisant GetWindowText comme tu me l'as conseillé, j'arrive bien a récupérer le titre de la boîte. Cependant, j'ai encore besoin d'aide. Je veux pouvoir réussir à récupérer le texte du centre de la boîte, par exemple dans mon cas "Voulez-vous enregistrer les modifications à Document1 ?"

Je ne sais comment atteindre la zone de ce texte ? Il est peut être possible, en ayant l’handle de la fenêtre faire la liste de son contenu ( caption, TEXT, bouton ??). Je suis vraiment coincé et je semble maintenant si proche .....

[LadyWasky]

Et avec EnumChildWindows pour énumérer les controles (labels, etc...) ?

[VincentB]

Mille fois merci !!! Voilà 4 ans que je tourne en rond avec cette histoire !!! en deux posts, tu as réglé mon problème. On m'avait dit que c'était pas possible.



Un grand grand merci