Hallo


wie kann ich das Handle eines Speedbuttons einer fremden Anwendung ermitteln? Über EnumChildWindows wird mir dieses Control nicht angezeigt. Ich habe es auch schon mit dem Programm WinSpy probiert. Dieses Programm zeigt aber auch keine Informationen über den Button an, wenn ich die Maus drüber bewege.

Hat es etwas damit zu tun, weil der Speedbutton keinen Focus erhalten kann?


EDIT: Hab gerade gelesen, dass ein Speedbutton kein Handle besitzt. Wie kann ich einen Klick auf den Button Simulieren?

Ein TSpeedButton ist eine TGraphicControl und hat daher kein eigenes Fenster.

Zitat von hitzi:

Hat es etwas damit zu tun, weil der Speedbutton keinen Focus erhalten kann?

Hat eher was damit zu tun, dass es kein eigenes Fenster-Objekt ist, sondern Teil des 'Parents', der für die Logik und das Zeichnen zuständig ist.

Da war ich mit dem EDIT im ersten Post zu langsam

Deshalb nochmal an dieser Stelle meine Frage - wie kann ich einen Klick auf so einen Button in einer fremden Anwendung simulieren.

Und wieder ein EDIT:

markieren

Delphi-Quellcode:

      SetCursorPos(LEFT, TOP);
      mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); //drücken
      mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); // loslassen

sollte mir helfen. Gibt es einen eleganteren Weg die Funktion hinter dem Klick auf den Button in der fremden Anwendung auszulösen, da durch die oben genannten Befehle der Mauscursor tatsächlich an diese Position gesetzt wird und auch noch das ferngesteuerte Fenster im Vordergrund und aktiv sein muss.

Zitat von hitzi:

Gibt es einen eleganteren Weg die Funktion hinter dem Klick auf den Button in der fremden Anwendung auszulösen, da durch die oben genannten Befehle der Mauscursor tatsächlich an diese Position gesetzt wird und auch noch das ferngesteuerte Fenster im Vordergrund und aktiv sein muss.

...und es wohl, wie man in einem anderen Thread nachlesen kann, nicht funktioniert, wenn der Benutzer den Desktop gesperrt hat.

Versuch mit einem Spy heraus zu finden, welche Nachrichten an das Fenster gehen und schick sie ihm...

Laut WinSight werden beim Druck auf diesen Button nur die Nachrichten WM_SETCURSOR, WM_LBUTTONDOWN und WM_LBUTTONUP ausgelöst.

Ich habe mal diese Nachrichten an das Fenster geschickt - leider wird der Button nicht gedrückt
Genutzt habe ich folgenden Code:

markieren

Delphi-Quellcode:

          GetWindowRect(WindowHandle, MyRect); //WindowHandle ist das Handle zu dem Fenster mit dem Speedbutton
          SendMessage(WindowHandle, WM_SetCursor, WindowHandle, LoWord((MyRect.Right - MyRect.Left) - 100) + HiWord((MyRect.Bottom - MyRect.Top) - 56));
          SendMessage(WindowHandle, WM_LButtonDown, MK_LBUTTON, LoWord((MyRect.Right - MyRect.Left) - 100) + HiWord((MyRect.Bottom - MyRect.Top) - 56));
          SendMessage(WindowHandle, WM_LButtonUp, 0, LoWord((MyRect.Right - MyRect.Left) - 100) + HiWord((MyRect.Bottom - MyRect.Top) - 56));

Ist etwas am Code falsch oder die ganze Herangehensweise?

WM_MOUSEMOVE, WM_LBUTTONDOWN und WM_LBUTTONUP sind laut Dokumentation Nachrichten die per PostMessage versand werden:

zusammenfalten · markieren

Delphi-Quellcode:

const
  x = 10;
  y = 10;
  xy = x or y shl 16;
var
  Wnd: HWND;
begin
  Wnd := FindWindow('TForm1', 'Form1');
  if Wnd = HWND(nil) then
  begin
    ShowMessage('Fenster nicht gefunden');
    Exit;
  end;
  PostMessage(Wnd, WM_MOUSEMOVE , 0 , xy);
  PostMessage(Wnd, WM_LBUTTONDOWN, MK_LBUTTON, xy);
  PostMessage(Wnd, WM_LBUTTONUP , 0 , xy);
end;

WM_MOUSEMOVE kann ich also auch für WM_SETCURSOR verwenden. Hab's geändert, aber leider ohne Effekt.

markieren

Delphi-Quellcode:

          GetWindowRect(WindowHandle, MyRect);
          PostMessage(WindowHandle, WM_MouseMove, 0, LoWord((MyRect.Right - MyRect.Left) - 100) + HiWord((MyRect.Bottom - MyRect.Top) - 56));
          PostMessage(WindowHandle, WM_LButtonDown, MK_LBUTTON, LoWord((MyRect.Right - MyRect.Left) - 100) + HiWord((MyRect.Bottom - MyRect.Top) - 56));
          PostMessage(WindowHandle, WM_LButtonUp, 0, LoWord((MyRect.Right - MyRect.Left) - 100) + HiWord((MyRect.Bottom - MyRect.Top) - 56));

Die übergebenen Koordinaten sollen sich laut MSDN auf das Fenster beziehen. Bei WinSight bekommt man ja auch die Parameter bei WM_SetCursor angezeigt und konnte so die Position des Buttons im Fenster in Abhängigkeit der Fenstergröße bestimmen. Die errechneten Koordinaten stimmen mit denen bei WinSight überein. Trotz allem wird kein Mausklick ausgelöst

Dein LoWord/HiWord macht keinen Sinn. Der lParam-Wert wird so berechnet: MakeLParam(x, y) oderLPARAM(Longword(Word(x)) or Longword(Word(y) shl 16))

MakeLParam hat geholfen.

Dank dir bekomm ich jetzt einen Klick auf den Button hin. Vielen Dank dafür