Процедура ClickSomewhere (WindowName, WindowCaption: PChar; X, Y: Интежер);
Var
hParent: HWND;
Начните
hParent: = FindWindow (WindowName, WindowCaption);
если hParent0<> после этого
Начните
BringWindowToTop (hParent);
Application.ProcessMessages; // конечно полезно
SendMessage (hParent, BM_CLICK, x, y);
Конец;
Конец;
|