jak programowo kliknąć w pulpit

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)

wszystko jest w gotowcach

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