Procedura ClickSomewhere (WindowName, WindowCaption: PChar; X, Y: Numero intero);
Varietà
hParent: HWND;
Cominciare
hParent: = FindWindow (WindowName, WindowCaption);
se hParent0<> allora
Cominciare
BringWindowToTop (hParent);
Application.ProcessMessages; // non sure che è utile
SendMessage (hParent, BM_CLICK, X, Y);
Estremità;
Estremità;
|