Procedura ClickSomewhere (WindowName, WindowCaption: PChar; X, Y: Integer);
Var
hParent: HWND;
Zaczynać
hParent: = FindWindow (WindowName, WindowCaption);
jeżeli hParent0<> Wtedy
Zaczynać
BringWindowToTop (hParent);
Application.ProcessMessages; // pewny że być pożytecznie
SendMessage (hParent, BM_CLICK, X, Y);
Końcówka;
Końcówka;
|