Einzelnen Beitrag anzeigen

Benutzerbild von zebrafalke
zebrafalke

Registriert seit: 25. Feb 2006
155 Beiträge
 
Turbo Delphi für Win32
 
#1

Button in externem Prog klicken

  Alt 15. Jul 2006, 14:19
Hallo,

ich habe im Internet folgenden Code gefunden, mithilfe dessen man einen Button in einem externen Programm klicken kann:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  ButtonToClick:hwnd;
  windowlongid:LONGint ;
begin
  ButtonToClick:=FindWindowEx(GetForegroundWindow,
                              0, // Suche beginnen beim 1. Childwindow
                              0, // Klassenname egal
                              'OK// Buttontext
                              );
  if ButtonToClick<>0 then
  begin // Button gefunden!
    windowlongid:=getwindowlong(ButtonToClick,gwl_id);
    SendMessage(GetParent(ButtonToClick),
                WM_COMMAND,
                MAKEWPARAM(windowlongID,
                           BN_CLICKED ),
                ButtonToClick ); //wir senden an das parent - Fenster
                                 //den Click-Event unseres Buttons
  end;
end;
Um ihm zu sagen, in welchem Programm er den Button klicken soll, muss man das Handle des Fensters haben.

So, jetzt zu meiner Frage: Wenn ich das Handle herausgefunden habe, wie setze ich das in die Code ein??? Ich steh irgendwie auf dem Schlauch...


Gruss
zebrafalke
  Mit Zitat antworten Zitat