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.