znaczy pytanie jest takie: jak mogę zapisać w kodzie żeby mysza kliknęła w wybrane miejsce na pulpice o współrzędnych X,Y? (pojedyncze i podwójne kliknięcia)
0
0
wszystko jest w gotowcach
0
Witam wszystkich na forum.
Ja radzę zrobić tak:
procedure Kliknij(xy:TPoint;KlikLewym:Boolean);
var
CurrentPos : TPoint;
CurrentWindow : HWND;
begin
CurrentWindow := GetForegroundWindow;
GetCursorPos(CurrentPos);
SetForegroundwindow(Foreground);
SetCursorPos(xy.x, xy.y);
if KlikLewym=True then
begin
mouse_event(MOUSEEVENTF_LEFTDOWN, xy.x, xy.y, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, xy.x, xy.y, 0, 0);
end else
begin
mouse_event(MOUSEEVENTF_RIGHTDOWN, xy.x, xy.y, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTUP, xy.x, xy.y, 0, 0);
end;
// SetForegroundWindow(Currentwindow); {Tutaj powrót do zaznaczonego okna}
SetCursorPos(CurrentPos.X, CurrentPos.Y);
end;
Pozdrawiam Grupa Noribo Częstochowa
//
if KlikLewym=True then
- nie wiem, czy mam się śmiać, czy załamywać - ŁF