Virtueller Klick auf fremdes Fenster

[Mazel]

Hallo,

ich glaube das ist das was du suchtst:

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