Maus außerhalb des Delphi-Programms steuern

[Cuchulainn]

Kann mir jemand folgendes erklären oder mir einen Quelltext geben, der das Folgende macht, weil ich keine Ahnung von der Windows API habe, aber dieses Programm dringend brauche:
Und zwar geht es darum, dass ich aus meinem Delphi-Programm heraus die Maus steuern muss. Zum Beispiel soll mein Programm die Maus auf das Wordsymbol auf dem Desktop bewegen, einen Doppelklick ausführen und Word damit öffnen und dann in Word auf den Menüpunkt "Datei" und "Beenden" klicken. Selbstverständlich sind die Anwendungen, für die ich dieses Programm benötige, wesentlich komplizierter, aber wenn ich so weit wäre, wäre ich schon ein gutes Stück weiter.

[Christian Seehase]

Moin Cuchulainn,

was genau willst Du denn erreichen?
Gerade Office Komponenten lässt sich auf anderem Wege deutlich besser steuern (siehe Registerkarte Servers in der IDE).
Und starten ginge über ShellExecute auch deutlich einfacher.

Bei Verwendung des Cursors stehst Du immer vor dem Problem, dass Du erst einmal herausbekommen musst, wo Du klicken musst, was gerade bei sich verändernden Menüs recht schwierig werden dürfte.

[himitsu]

Zum Mausbewegen hab ich was, aber wie Mausklicks simuliert werden weis ich nicht mehr.
Hab's lange nicht mehr benötigt und auch nichts dazu gefunden.

[Matze]

@himitsu: jetzt hab ich ja einen tollen Cursor. :mrgreen:

Gleich mal wieder in der Systemsteuerung umstellen. ;)

Edit: Ja toll, jetzt sind die 3 Quadrate mein Standard-Zeiger, ich will den normalen Cursor. :cry:
Edit2: http://www.delphipraxis.net/internal...?p=93707#93707 :mrgreen:

[APP]

Hallo,

Zitat:

Zitat von himitsu

...aber wie Mausklicks simuliert werden weis ich nicht mehr...

Delphi-Quellcode:

   mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); // linker Mausklick down
   mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);   // linker Mausklick up

Zitat:

Zitat von OH

The mouse_event function synthesizes mouse motion and button clicks.

VOID mouse_event(
DWORD dwFlags, // flags specifying various motion/click variants
DWORD dx, // horizontal mouse position or position change
DWORD dy, // vertical mouse position or position change
DWORD dwData, // amount of wheel movement
DWORD dwExtraInfo // 32 bits of application-defined information
);

hoffentlich spekulieren wir nicht nur ins Blaue hinein :mrgreen:

[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.