Daten aus IE in Memo transferieren

[eddy]

Hallo Leute,

Problem ist gelöst:

Code:

{
  angezeigte Internetseite (im wesentlichen mit Text) markieren
  markierten Text in den Zwischenspeicher kopieren
}

uses 
  ActiveX, OleCtrls;

procedure TFMoney.SpeedButton3Click(Sender: TObject);
begin
  WebBrowser1.SetFocus;
  try
    WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER);
    WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER);
  except
  end;
  // Aktionen, die den Zwischenspeicher auslesen 
end;



// damit das Kopieren über den Zw.speicher funktioniert:
initialization
  OleInitialize(nil);

finalization
  OleUninitialize;

end.

mfg
eddy