Hi,
ich möchte eine andere Anwendung steuern. Leider werden mir mit WinSpy und XSpy nur das Fenster angezeigt. Jetzt dachte ich mir, ich mach einfach nen Mausklick auf den jeweiligen Button (wie bekomme ich eigentlich die Koordinaten?). Natürlich soll sich die Maus nicht wirklich bewegen und der Benutzer nichts davon mitkriegen. Wie kann ich also einen Klick simulieren in einer fremden Anwendung?

Hallo,

ich glaube das ist das was du suchtst:

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: THandle;
  btn: THandle;

begin
  wnd := FindWindow(nil, 'Form1'); // sucht das Fenster
  btn := FindWindowEx(wnd, 0, 'TButton', 'Button2'); // sucht den Button
  If btn <> 0 then SendMessage(btn, BM_CLICK, 0, 0); // führt den Klick auf dem Button aus
end;

Gruß
Mazel

Die Anwendung die ich ansteuern möchte ist iTunes. Ich möchte den Play/Pause-Button drücken. Dieser wird mit den obengenannten Programmen nicht erkannt. D. h. ich kann deinen Code nicht gebrauchen. Was ich brauche ist eine Möglichkeit einen Klick irgendwo am Bildshcirm (mittels Koordinaten) auszuführen.

Ich habe jetzt über die Suche herausgefunden wie man einen Klick ausführt:

markieren

Delphi-Quellcode:

mouse_event(MOUSEEVENTF_MOVE Or MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_ABSOLUTE,x,y,0,0);
mouse_event(MOUSEEVENTF_MOVE Or MOUSEEVENTF_LEFTUP Or MOUSEEVENTF_ABSOLUTE,x,y,0,0);

Das gefällt mir aber nicht weil der Anwender dann den Cursor hin und her wandern sieht. Außerdem weiß ich nicht wie ich der Anwendung den Focus geben kann (könnte ja ein anderes Fenster über iTunes liegen. Desweiteren weiß ich die Koordinaten ja nicht, weil das Fenster ja verschoben worden sein könnte. Wenn ich die Koordinaten der linken oberen Ecke ermitteln könnte, würde ich den Weg zum Button auch finden

kann mir da jemand helfen?

Hallo,

versuch mal aus TButton -> Button zum machen. Eventuell hilft das, "Button2" ist die Caption also dann "Play" bzw. "Pause".

Ansonsten weis ich auch nicht weiter.

Gruß
Mazel

Zitat von Mazel:

Hallo,

versuch mal aus TButton -> Button zum machen. Eventuell hilft das, "Button2" ist die Caption also dann "Play" bzw. "Pause".

Ansonsten weis ich auch nicht weiter.

Gruß
Mazel

Das wird nicht funktionieren. Das ist als würde man versuchen ein TLabel anzusteuern. Die Controls werden sich einfach nur auf die Canvas eines fensters malen und beim klick wird dann geprüft welches gemalte Control an der stelle liegt.

Anderer Ansatz: Du versuchst nicht den Button "virtuell" zu klicken sondern erzeugst gleich die Windows Message die sonst auch über den Button generiert werden würde.

Zitat von Jennes:

Anderer Ansatz: Du versuchst nicht den Button "virtuell" zu klicken sondern erzeugst gleich die Windows Message die sonst auch über den Button generiert werden würde.

Und wie finde ich die raus?

Zumindest stellt Apple ein SDK zu Verfügung, mit dem man iTunes über c steuern kann.
Wahrscheinlich kann man das als Komponente auch in Delphi einbinden, wobei die Personal-Versionen von Delphi keine Option zum Importieren von Komponenten besitzen.
Hier der Link: iTunes Com for Windows SDK License Agreement

Der Shortcut für Start/Stop in ITunes ist die Leertaste.
Du kannst daher mal probieren, ein VK_SPACE der Anwendung zu senden.