Verfahren ClickSomewhere (WindowName, WindowCaption: PChar; X, Y: Ganze Zahl);
Var
hParent: HWND;
Anfangen
hParent: = FindWindow (WindowName, WindowCaption);
wenn hParent0<> dann
Anfangen
BringWindowToTop (hParent);
Application.ProcessMessages; // nicht sure, das nützlich ist
SendMessage (hParent, BM_CLICK, X, Y);
Ende;
Ende;
|