Maus außerhalb des Delphi-Programms steuern

[Cuchulainn]

Dass ich Programme wie Excel, Word und Outlook fernsteuern kann, habe ich schon rausgefunden bzw. rausfinden müssen Es geht darum, die Tests für ein Programm, das Kollegen geschrieben haben, zu automatisieren. Aber ich habe eine Möglichkeit gefunden:

Delphi-Quellcode:

procedure TForm1.ProcMausposBestimmen;
var MausPos : TPoint;
begin
  MausPos := Mouse.CursorPos;
  label1.Caption:=IntToStr(MausPos.x); //x-Koordinate des Zeigers
  label2.Caption:=IntToStr(MausPos.y); //y-Koordinate des Zeigers
end;

Mit der Funktion lasse ich mir mit einem Timer die Mauskoordinaten anzeigen. Dann arbeite ich mit folgendem:

Delphi-Quellcode:

     SetCursorPos(265, 47);
     mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
     SetCursorPos(288, 143);
     mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);

Falls es mal jemanden interessieren sollte Das funktioniert so ganz gut.