Получение выделенного текста из компонента TWebBrowser

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение выделенного текста из компонента TWebBrowser

Зависимости: OleCtrls, SHDocVw, MSHTML, Variants (для Delphi 6+)
Автор:       Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright:   Dimka Maslov
Дата:        30 января 2003 г.
***************************************************** }

function
 GetBrowserSelection(WB: TWebBrowser): string
;
var

  Doc: Variant;
begin

  if
 WB.Document <> nil
 then

  begin

    Doc := WB.Document;
    try

      Result := Doc.Selection.createRange.Text
    finally

      Doc := Unassigned;
    end
;
  end

  else

    Result := '';
end
;

Другое по теме:

• Очистка кэша в IE
• WEB страничка внутри Delphi приложения
• Автоматическое заполнение HTML-форм в браузере