Programmsteuerung mit FindWindowEx

[Luckie]

Ein Formular, zwei Schaltflächen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Hello world');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  hWnd: THandle;
  hBtn: THandle;
begin
  hWnd := FindWindow(nil, 'Form1');
  if hWnd <> 0 then
  begin
    hBtn := FindWindowEx(hWnd, 0, nil, 'Button1');
    if hBtn <> 0 then
    begin
      SendMessage(hBtn, BM_CLICK, 0, 0);
    end
    else
      ShowMessage(SysErrorMessage(GetLastError));
  end
  else
    ShowMessage(SysErrorMessage(GetLastError));
end;