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 doif (Sw.Item(x) as IWebbrowser2).hwnd = IE thenbegin
Result := variant(Sw.Item(x)).Document.Selection.createRange.Text;
break;
end;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Получить выделенный текст из окна IE", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!