Procédé ClickSomewhere (WindowName, WindowCaption : PChar ; X, Y : Nombre entier) ;
Variété
hParent : HWND ;
Commencer
hParent : = FindWindow (WindowName, WindowCaption) ;
si hParent0<> alors
Commencer
BringWindowToTop (hParent) ;
Application.ProcessMessages ; // pas sure qui est utile
SendMessage (hParent, BM_CLICK, X, Y) ;
Extrémité ;
Extrémité ;
|