Delphi

Вопрос

Как получить выделенный текст из окна Internet Explorer?

Ответ

Вот так:

uses SHDocVw_TLB;
// если у Вас нет этого модуля, то Вам сюда:
http://www.euromind.com/iedelphi/

function GetSelectedIEtext: string;
var
    x: Integer;
    Sw: IShellWindows;
    IE: HWND;
begin
    IE := FindWindow('IEFrame', nil);
    sw := CoShellWindows.Create;
    for x := SW.Count — 1 downto 0 do
   if (Sw.Item(x) as IWebbrowser2).hwnd = IE then begin
Result := variant(Sw.Item(x)).Document.Selection.createRange.Text;
        break;
    end;
end;

Из конференции Delphi