Procedimento ClickSomewhere (WindowName, WindowCaption: PChar; X, Y: Inteiro);
Var
hParent: HWND;
Começar
hParent: = FindWindow (WindowName, WindowCaption);
se hParent0<> então
Começar
BringWindowToTop (hParent);
Application.ProcessMessages; // não sure que é útil
SendMessage (hParent, BM_CLICK, X, Y);
Extremidade;
Extremidade;
|