SRL Archive - Delphi/FPC Help and Tutorials

How do you click in delphi? Thanks ;)

procedure ClickMouse(x, y: Integer; Left: Boolean);
begin
  if(Left)then
  begin
    mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
    mouse_event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);
  end else begin
    mouse_event(MOUSEEVENTF_RIGHTDOWN, x, y, 0, 0);
    mouse_event(MOUSEEVENTF_RIGHTUP, x, y, 0, 0);
  end;
end;

Thanks Bullzeye. I was looking in the help manual everywhere.