Mausclick

[deusmac]

Ich würde gerne mit einem Delphiprogramm ein Fenster in den Vordergrund holen und dann den Mauszeiger an eine bestimmte Position setzten und klicken. Ausserdem würde ich gerne die Position meines Mauszeigers abfragen und ausgeben lassen.

[SirThornberry]

in den Vordergrund holen mit

Delphi-Quellcode:

  BringWindowToTop(HandleDerAnwendung);

Mauszeigerposition setzen mit

Delphi-Quellcode:

  SetCursorPos(x, y);

Klicken mit

Delphi-Quellcode:

  mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);

und Zeigerposition ausgeben mit

Delphi-Quellcode:

var LPos: TPoint;
begin
  GetCursorPos(LPos);
  ShowMessage(inttostr(LPos.X) + ' / ' + inttostr(LPos.Y);
end;