Tillvägagångssätt ClickSomewhere (WindowName, WindowCaption: PChar; X Y: Heltal);
Var
hParent: HWND;
Börja
hParent: = FindWindow (WindowName, WindowCaption);
om hParent0<> därefter
Börja
(hParent) BringWindowToTop;
Application.ProcessMessages; // inte sure som är användbar
hParent SendMessage (, BM_CLICK, X, Y);
Avsluta;
Avsluta;
|