Procedimiento ClickSomewhere (WindowName, WindowCaption: PChar; X, Y: Número entero);
Var
hParent: HWND;
Comenzar
hParent: = FindWindow (WindowName, WindowCaption);
si hParent0<> entonces
Comenzar
BringWindowToTop (hParent);
Application.ProcessMessages; // no sure que es útil
SendMessage (hParent, BM_CLICK, X, Y);
Extremo;
Extremo;
|