Taste drücken durch Programm ?

[Luckie]

So, jetzt mal mit dem Spiegel über die Schulter nach hinten gezielt mit dem Revolver:

Delphi-Quellcode:

procedure ClickIt;
var
  hWnd : Cardinal;
  hBtn : Cardinal;
begin
  hWnd := FindWindow(nil, 'verbunden mit XXL arcor');
  if hWnd = 0 then
  begin
    Messagebox(Handle, 'Fenster nicht gefunden', 'Fehler', MB_ICONSTOP);
    exit;
  end;
  hBtn := FindWindowEx(hWnd, 0, nil, 'Aktivieren');
  if hBtn = 0 then
  begin
    Messagebox(Handle, 'Knöppgens nicht gefunden', 'Fehler', MB_ICONSTOP);
    exit;
  end;
  SendMessage(hBnt, BM_CKLICK, 0, 0);
end;

Den Fenstertitel und den Buttontext könnte man als parameter übergeben, dann wird es etwas universeller.