TWebBrowser alles markieren und kopieren

[toms]

Hallo, setzte den Fokus zuvor auf den Webbrowser:

Delphi-Quellcode:

procedure WB_SelectAllAndCopyToClipbrd(Webrowser: TWebbrowser);
begin
  with Webrowser do
  begin
    try
      OleObject.Document.body.focus; // Fokus auf Webbrowser setzen
      ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT); // alles markieren
      ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT); // in die Zwischenablage kopieren
      ExecWB(OLECMDID_CLEARSELECTION, OLECMDEXECOPT_DONTPROMPTUSER); // Markierung aufheben
    except
    end;
  end;
end;