Получить выделенный текст из окна IE

Советы » Браузер » Получить выделенный текст из окна IE

uses

SHDocVw_TLB; // http://www.euromind.com/iedelphi if don't have that unit 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

;

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com