Procedure ClickSomewhere (WindowName, WindowCaption: PChar; X, Y: Geheel);
Var
hParent: HWND;
Begin
hParent: = FindWindow (WindowName, WindowCaption);
als hParent0<> toen
Begin
(hParent) BringWindowToTop;
Application.ProcessMessages; niet zeker // dat nuttig is
hParent SendMessage (, BM_CLICK, X, Y);
Eind;
Eind;
|